Button Prozedur in anderer Prozedur aufrufen

[Matze]

Ich persönlich finde es schöner, den Code in eine eigene Prozedur auszulagern und die im jeweiligen OnClick aufzurufen. Wobei es meist auch nicht nötig ist, 2 Buttons zu haben, die das selbe bewirken.

Delphi-Quellcode:

procedure TForm1.ClearIt;
begin
  Edit1.Clear;
end;

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


procedure TForm1.Clear1Click(Sender: TObject);
begin
  ClearIt;
end;

Grüße, Matze