Проблема с RadioButton и ini

[Kolesoff]

Столкнулся с проблемой, не могу сделать считывает выбранного RadioButton с ini файла, в Memo вопросы переключаются корректно, но вот ответ выбирается не понятно как.

PHP код:

var
  Form1: TForm1;
  Quests: TIniFile;
  IntnextQuest,IntQuestTrue,IntQuestFalse,NumberTicked: integer;
  OtvetStr, OtvetUserStr: String;
implementation

{$R *.dfm}

procedure TForm1.ButtonNextClick(Sender: TObject);
begin
 case RadioButton1.Checked of
  true:begin OtvetUserStr:= 'A'; end;
  false:begin OtvetUserStr:= 'B'; end;
  end;
   if OtvetStr = OtvetUserStr then
    begin
     Inc(IntQuestTrue);
    end
    else
     Inc(IntQuestFalse);
   if OtvetStr = OtvetUserStr then
    begin
       ShowMessage('Правильно!');
       end
     else
        ShowMessage('Не правильно!');


Inc(IntnextQuest);
  Memo1.Lines.Clear;
  Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quests'+IntToStr(NumberTicked)+'.ini');
  Memo1.Lines.Add(Quests.ReadString('Quest'+IntToStr(IntnextQuest), 'Quest', 'Тест окончен!'));
  OtvetStr:=(Quests.ReadString('Quest'+IntToStr(IntnextQuest), 'Otvet', 'Ничего здесь нет!'));
if Memo1.Lines[0] = 'Тест окончен!' then
   begin
   ShowMessage('Тест окончен!'+#13+'Правильных ответов: '+IntToStr(IntQuestTrue)+#13+'Не правильных ответов: '+IntToStr(IntQuestFalse));
    end;
  end;

procedure TForm1.ButtonStartClick(Sender: TObject);
begin
IntQuestTrue:=0;
IntQuestFalse:=0;
IntnextQuest:=1;
if RadioButton1.Checked = true then
  begin
  NumberTicked:=1;
   Memo1.Lines.Clear;
   Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quests'+IntToStr(NumberTicked)+'.ini');
   Memo1.Lines.Add(Quests.ReadString('Quest'+IntToStr(IntnextQuest), 'Quest', 'Тест окончен!'));
   OtvetStr:=(Quests.ReadString('Quest'+IntToStr(IntnextQuest), 'Otvet', 'Ничего здесь нет!'));
   end
else
  begin
  NumberTicked:=2;
   Memo1.Lines.Clear;
   Quests:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quests'+IntToStr(NumberTicked)+'.ini');
   Memo1.Lines.Add(Quests.ReadString('Quest'+IntToStr(IntnextQuest), 'Quest', 'Тест окончен!'));
   OtvetStr:=(Quests.ReadString('Quest'+IntToStr(IntnextQuest), 'Otvet', 'Ничего здесь нет!'));

   end;
end;



end.