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