[Помидоркин]

Есть форма, которая открывается в модальном режиме. В модальной форме (FrmGroup) ничего интересного не происходит, все что нужно реализовано в главной форме.

Код:

procedure TForm1.btnGroupClick(Sender: TObject);
var i, ti: Word;
begin
 FrmGroup.ShowModal;
 //bla bla bla
     case FrmGroup.ModalResult of
        mrAbort : PL.RemoveGrp(i);
        mrYes : PL.AddGrp(i, FrmGroup.ComboBox1.Text);
     end; 
//bla bla bla 
end; 

У модальной формы есть кнопка с ModalResult:= mrYes; у нее нет обработчика (он там не нужен), форма просто закрывается с соответствующим ModalResult, как по нажатию Enter воспроизвести нажатие на кнопку? btnOk.SetFocus не предлагать, фокус должен быть на комбобоксе.

Код:

procedure TFrmGroup.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then btnOkClick(Self);
end;

- это бессмыслица

Код:

procedure TFrmGroup.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
 begin
  ModalResult:= mrYes;
  Close;
 end;
end;

или

Код:

procedure TFrmGroup.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
 begin
  ModalResult:= mrYes;
  Hide;
 end;
end;

- не работает