Ein 'KeyDownEvent'-Ereignis...in eine andere Unit auslagern

[Codix32]

Hallo Leute,

um meine FormUnit etwas übersichtlicher zu gestalten, möchte ich gern

die Ereignisse 'KeyDownevent' für Editfelder und 'Clickevent' für dynamisch erstellte Labels
in eine 2.Unit auslagern und diese dann einbinden:

Delphi-Quellcode:

{OnKeyDown Methode - den Edits im Objektinsp. zugewiesen}
procedure TForm1.EditKeyDownEvent(Sender:TObject; var Key: Word;
  Shift: TShiftState);
begin  
 if (Sender is TEdit)and(Key=VK_Return) then  
 begin  
   LblColorSwap;  
   Label9.Top:=TEdit(Sender).Top;
   Label9.Caption:= '<- Focus';
   Edit1.maxlength :=5;
   Edit2.maxlength :=5;
   if (Sender =Edit1)and (length(Edit1.text)=5) then
...
...

{das Klick Ereignis}
procedure TForm1.ClickEvent(Sender: TObject);
begin
if (Sender is TLabel) then
 with TagArray[(Sender as TLabel).Tag] do
  begin
   LblTmp:=TNum;
   Label1.Caption:= inttostr(TNum);
   Label2.caption:='TagArray.Anw:  '+ Anw;
   Label3.Caption:='TagArray.abwBegin:  '+ abwBegin;
   Label4.Caption:='TagArray.abwEnde:  '+ abwEnde;
   Label5.Caption:='TagArray.abwZeit:   '+ abwZeit;
   Label10.Caption:='TagArray.TgName:  '+ TgName;
   Label13.Caption:= inttostr(WerkTag)+'. Werktag';
   Edit1.Text:=abwBegin;
   Edit2.Text:=abwEnde;
   Edit3.Text:=abwZeit;
   Edit4.Text:=Anw;
  end;
  LblColorSwap;
end;

Habt ihr einen Ansatz, oder müssen diese Events in der Formunit bleiben?