[aqula]

что за 7-ая строчка? Конкретизируйте пожалуйста.

Cейчас пытался обмануть. Cделал на FormKeyDown

Код:

procedure TForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_ESCAPE) then Close;
  if (Key = VK_RETURN) and Assigned(Screen.ActiveControl)
    and (Screen.ActiveControl is TRadioButton) then Button1.Click;
end;

Но все равно вылезает ошибка иногда.