Здравствуйте, Utruk, Вы писали:

U>Как такое сделать и возможно ли вообще?

Попробуй так:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var R: Integer;
begin
  if Key <> VK_RETURN then Exit;
  if Assigned(ActiveControl) then
    begin
      R := ActiveControl.Perform(WM_GETDLGCODE, 0, 0);
      if (R and DLGC_WANTALLKEYS = DLGC_WANTALLKEYS) or (R and DLGC_BUTTON = DLGC_BUTTON) then Exit;
    end;
  // Твой код
end;

Form.KeyPreview := True;