Тест по делфи не сверяет ответ пользователя и правильный ответ из ini файла

var
  Form3: TForm3;
  Quest: TIniFile;
  IntNext,pravil,nepravil: integer;
  otvetpolz, pravotv: string;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm3.Button3Click(Sender: TObject);
begin
form3.Close;
end;
 
 
 
procedure TForm3.ButtonNextClick(Sender: TObject);
begin
if pravotv=otvetpolz then
inc(pravil)
else
inc(nepravil);
 
if Radiobutton1.Checked= true then otvetpolz:='A';
if Radiobutton2.Checked= true then otvetpolz:='B';
if Radiobutton3.Checked= true then otvetpolz:='C';
if Radiobutton4.Checked= true then otvetpolz:='D';
inc(IntNext);
memo1.Lines.Clear;
quest:=TInifile.create(extractfilepath(application.ExeName)+'obsh.ini');
memo1.Lines.Add(quest.readstring('q'+InttoStr(IntNext),'q',тест окончен'));
pravotv:=(quest.readstring('q'+InttoStr(IntNext),'o','тест окончен'));
 
 
 
if memo1.lines[0]= 'тест окончен'  then
begin
 buttonnext.Enabled:=false;
 showmessage('правильно'+inttostr(pravil)+'непавильно' + inttostr(nepravil));
 
end;
 
end;

procedure TForm3.ButtonNextClick(Sender: TObject);
begin
inc(IntNext);
memo1.Lines.Clear;
quest:=TInifile.create(extractfilepath(application.ExeName)+'obsh.ini');
memo1.Lines.Add(quest.readstring('q'+InttoStr(IntNext),'q','тест окончен'));
pravotv:=(quest.readstring('q'+InttoStr(IntNext),'o','тест окончен'));
 
if Radiobutton1.Checked= true then otvetpolz:='A';
if Radiobutton2.Checked= true then otvetpolz:='B';
if Radiobutton3.Checked= true then otvetpolz:='C';
if Radiobutton4.Checked= true then otvetpolz:='D';
 
if pravotv=otvetpolz then
inc(pravil)
else
inc(nepravil);
 
if memo1.lines[0]= 'тест окончен'  then
begin
 buttonnext.Enabled:=false;
 showmessage('правильно'+inttostr(pravil)+'неправильно' + inttostr(nepravil));
 
end;