Code aus Button in andere unit auslagern

[moperswings]

hmm, ich krieg das nicht hin!

unit1

Delphi-Quellcode:

procedure Button1.onClick (Sender: TObject);

implementation
uses unit2;

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

unit2

Delphi-Quellcode:

procedure c1.ButtonClick(Sender: TObject);
begin 
   Form1.Color := clred;
end;

Wo ist der Fehler?