procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=VK_RETURN then SelectNext(ActiveControl as TWinControl,true,true); end;