1:
2:
3:
4:

Prozedure abc
begin
...
end					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure foo;
begin
  ShowMessage('foo');
end;

{...}

procedure TForm1.Button1Click(Sender : TObject);
begin
  foo;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

interface

type
TForm1 = class(TForm)
   Button1 : TButton;
   procedure MyButtonClick(Sender : TObject); // normalerweise stellt Delphi die procedur hier rein
private
   // die procedure kann auch hier stehen
public
   // oder auch hier
end;

// oder hier aber dann brauchst du vor dem procedurnamen kein TForm1 schreiben

implementation

procedure TForm1.CreateForm(...);
begin
    Button1.OnClick := MyButtonClick;     // mit dieser zuweisung wird ein Zeiger für OnClick auf die procedure 
                                          //MyButtonClick gespeichert und der Button weis was er zu tun hat
                                          //wenn du auf Ihn Klickst!
    // aber bei Delphi machst du einfach im ObjectInspector im Register Ereignisse auf den eintrag OnKlick
    // ein DoppelKlick und Delphi fügt automatisch eine procedure ein!
end;

procedure TForm1.MyButtonClick(Sender : TObject); // die definition
begin
   // hier muß der Code stehen der ausgeführt wird wenn der Button geklickt wird
end;