TEdit-Komponenten mit dynamischen SetFocus versehen

[Barret]

Hi!
Ich hab in meinem projekt mehrere Edit-Felder die untereinander stehen. Jetzt will ich das, wenn ich die Pfeil hoch btw. runter Taste betätige der Focus ein Edit runter bzw. hoch springt. Ich hatte aber keine Lust in jedem Edit eine "Key"-Abfrage beim KeyDown zu machen und dan den Focus zuweisen. Sprich ich will das nur einmal schreiben und dann lass ich die Edits das "KeyDown"-Event von dem geschriebennen holen. Ich hab das schon über den "ComponentCount" versucht hab da aber nix rausbekommen.
Dan hab ich noch das Probiert:

Code:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);  
begin  
  if (Key = PChar(VK_Down)) then  
  begin  
    (Sender as TCustomEdit).Perform(WM_NEXTDLGCTL, 0, 0); //Zum nächsten Element wechseln  
    Key := #0; //Gedrückte Taste unwirksam machen  
  end;  
end;

Funktioniert aber auch nicht.
Hat jemand von euch noch eine Lösung.
Ach so mit der angezeigten procedure kann ich ja nur weiter springen. Und wenn da jemand noch was im Angebot hätte wie ich zurückspringen kann wär ich auch dankbar.