procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key=#13 then begin Key:=#0; PostMessage(Handle,WM_NEXTDLGCTL,0,0); end; end;