procedure Tfmlogin.FormKeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin key:=#0; perform(wm_nextdlgctl,0,0); end; end;