[aqula]

Есть RadioGroup1 в нем генерирую кнопки

Код:

Ocenka := TmpStr;
      I := RadioGroup1.Items.Add(Ocenka);
      RBtn := TRadioButton(RadioGroup1.Controls[i]);
     SetWindowLong(RBtn.Handle,GWL_STYLE,GetWindowLong(RBtn.Handle,GWL_STYLE) or BS_MULTILINE);
      RBtn.OnKeyDown:=RadioKeyDown; 

где RadioKeyDown

Код:

procedure TMasterOfInspections.RadioKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key in [VK_RETURN, VK_SPACE]) then Button1.Click;
  if (Key in [VK_LEFT, VK_BACK]) then Button5.Click;
end;

На нажатие Enter ругается ошибкой памяти Access violation at address...