Code aus Button in andere unit auslagern

[mkinzler]

procedure Button1.onClick (Sender: TObject);
procedure Button1.onClick (Sender: TObject);
begin
Form1.Button1.onclick = c1.ButtonClick;
end;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
    Button1.onClick := c1.ButtonClick;
end;