Это я так пыталась избавиться от ошибки.
Код:
procedure TForm3.Button1Click(Sender: TObject);
begin
.....
DM.OtvetTestera.Open;
DM.OtvetTestera.Append;
If (RadioButton1.Checked=False) and (RadioButton2.Checked=False) and (RadioButton3.Checked=False) and (RadioButton4.Checked=False) and (RadioButton5.Checked=False)
then MessageDlg('Выберите вариант ответа!', mtWarning, [mbOK],0)
else begin
If RadioButton1.Checked=True then begin
DM.OtvetTestera.FieldByName('ID_user').AsInteger:=strtoint(DM.Testiruemiy.FieldValues['ID_user']);
DM.OtvetTestera.FieldByName('№VO').AsInteger:=strtoint(DM.M1V1.FieldValues['№VO']);
DM.OtvetTestera.Post;
.....