Fertige Procedure über Button ausführen?

[hoika]

Hallo,

für so eine Anforderung schreibe ich immer
eine separate Prozedur,
die halt nicht OnButton1Click heisst,
sondern im Namen die Funktion auch beschreibt.

Delphi-Quellcode:

procedure TForm1.DoSomeThing;
begin
  bla ...
end;

Beide OnClick-Methoden (oder was auch immer)
rufen dann die DoSomeThing methode auf.

Delphi-Quellcode:

procedure TForm1.Button1OnClick;  // oh Gott Button 1 ???
begin
  DoSomeThing;
end;

procedure TForm1.Button2OnClick;  
begin
  DoSomeThing;
end;

Heiko