Hvordan opretter jeg en procedure?

Hvordan skal nedenstående skrives, så jeg kan oprette en procedure?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
private
    { Private declarations }

  public
    { Public declarations }
    Procedure EnNyProcedure;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

    Procedure EnNyProcedure;
    begin

    end;


Fejlmeddelelse:
Description

This error message appears when you have a forward or external declaration of a procedure or function, or a declaration of a method in a class or object type, and you don't define the procedure, function or method anywhere.  Maybe the definition is really missing, or maybe its name is just misspelled.  Note that a declaration of a procedure or function in the interface section of a unit is equivalent to a forward declaration - you have to supply the implementation (the body of the procedure or function) in the implementation section.  Similarly, the declaration of a method in a class or object type is equivalent to a forward declaration.