Unter einer Procedure eine andere Procedur aufrufen

[EMS]

Hallo
Wie oben schon geschrieben.
Ich habe nun eine Prozedure fertig die funktioniert.
Diese möchte ich nun zusätzlich in einer anderen aufrufen.
wie muss ich das programmieren?

procedure TForm1.Button2Click(Sender: TObject);
begin
...
...
procedure TForm1.Button3Click(Sender: TObject);
...
...
...
end;

funktioniert nicht?
Was mach ich hier falsch?