funktionen von buttons zusammenlegen

[trashar]

Hallo

ich habe 3 buttons

"Hinzufügen" "Hinzufügen & Schliessen" "Schliessen"

nun hab ich unter hinzufügen eine Prozedur
und unter schliessen eine..

nun möcht ich wenn ich auf "Hinzufügen & Schliessen" klicke, das erst die "hinzufügen" prozedur ausgeführt wird, und dann die von schliessen.

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
begin
Form4.Close;
end;

zb so
kommt noch was zu
meine frage nun. geht das und wenn ja wie?
oder muss ich das in funktionen packen??

mfg