[lmikle]

1. У формы KeyPreview = True
2. У формы OnKeyPress:

Код:

procedure TFrmGroup.FormKeyPress(Sender : TObject; var Key : Char);
begin
  If Key = #13 Then
    Begin
      Key := #0;
      ModalResult := mrYes;
    End;
end;