procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key = Chr(VK_RETURN) then begin Perform(WM_NEXTDLGCTL,0,0); key:= #0; end; end;