сделайте блок схему

procedure Ttesting.b1Click(Sender: TObject);
begin
if ots.ItemIndex<0 then
begin
ShowMessage('Вы не выбрали вариант ответа.');
exit;
end;
if ots.ItemIndex=strtoint(otvety.Lines[ind]) then pr:=pr+1;
//Next Q
ind:=ind+1;
proc.Position:=ind;
gb.Caption:='Вопрос ('+inttostr(ind+1)+' из 30)';
if (ind+1)=30 then
begin
b2.Click;
exit;
//***
end;
vop.Text:=dat.ReadString('vop'+inttostr( ind),'vop','');
ots.Items.Clear;
ots.Items.Add(dat.ReadString('vop'+intto str(ind),'ot0',''));
ots.Items.Add(dat.ReadString('vop'+intto str(ind),'ot1',''));
ots.Items.Add(dat.ReadString('vop'+intto str(ind),'ot2',''));
ots.Items.Add(dat.ReadString('vop'+intto str(ind),'ot3',''));
end;

procedure Ttesting.FormShow(Sender: TObject);
begin
dat:=Tinifile.Create(ident.dir+'data\Tes t\test.ini');
otvety.Lines.LoadFromFile(ident.dir+'dat a\Test\data.dat');
ind:=0;
pr:=0;
proc.Position:=0;
b1.Enabled:=true;
clw.Visible:=false;
proc.Position:=ind;
gb.Caption:='Вопрос ('+inttostr(ind+1)+' из 30)';
vop.Text:=dat.ReadString('vop'+inttostr( ind),'vop','');
ots.Items.Clear;
ots.Items.Add(dat.ReadString('vop'+intto str(ind),'ot0',''));
ots.Items.Add(dat.ReadString('vop'+intto str(ind),'ot1',''));
ots.Items.Add(dat.ReadString('vop'+intto str(ind),'ot2',''));
ots.Items.Add(dat.ReadString('vop'+intto str(ind),'ot3',''));
end;

procedure Ttesting.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ind:=0;
pr:=0;
proc.Position:=0;
otvety.Lines.Clear;
dat.Free;
end;

procedure Ttesting.b2Click(Sender: TObject);
begin
resu.pr:=pr;
resu.otv:=ind;
b1.Enabled:=false;
clw.Visible:=true;
proc.Position:=0;
vop.Lines.Clear;
ots.Items.Clear;
resu.Show;
end;

procedure Ttesting.clwClick(Sender: TObject);
begin
testing.Close;
end;

end.

0