TEdit -> Tasten überprüfung funzt nicht

[maximus Caesar]

Hallo!
Ich habe ein mehrere Edit-Felder.
Beim ersten habe ich dies in die OnKeyPress geschreiben:

Delphi-Quellcode:

procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if(GetAsyncKeyState(VK_RETURN))<>0 then Edit2.SelectAll;
end;

Leider wird Edit2.selectall nicht ausgeführt, wenn ich enter drücke, während ich mich mit dem focus auf Edit1 befinde. Kann mir jemand sagen wo der Fehler steckt?

[Matze]

Wie wäre es zusätzlich mit SetFocus?

[maximus Caesar]

das funzt...

Danke!!!!