[Black Raider]

Код:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);

begin

  if key=VK_RETURN then
    if (Shift = [ssShift]) then SelectNext(ActiveControl as TWinControl,false,true)
    else SelectNext(ActiveControl as TWinControl,true,true);

end;