Учебная программа - тест

procedure TForm1.ReadQuestions(q:integer);
var QF:TIniFile;
begin
 QF:=TIniFile.Create(ExtractFileDir(ParamStr(0))+'\testq.tq');
 label1.Caption:=
 QF.ReadString('Cool Test','Question'+inttostr(q),label1.Caption);
 RadioGroup1.Items[0]:=
 QF.ReadString('Cool Test','variant'+inttostr(q)+'1',RadioGroup1.Items[0]);
 RadioGroup1.Items[1]:=
 QF.ReadString('Cool Test','variant'+inttostr(q)+'2',RadioGroup1.Items[1]);
 RadioGroup1.Items[2]:=
 QF.ReadString('Cool Test','variant'+inttostr(q)+'3',RadioGroup1.Items[2]);
 RadioGroup1.Items[3]:=
 QF.ReadString('Cool Test','variant'+inttostr(q)+'4',RadioGroup1.Items[3]);
 QF.Free;
end;
 
function TForm1.ReadAnswer(q:integer):integer;
var QF:TIniFile;
    answer:integer;
begin
 QF:=TIniFile.Create(ExtractFileDir(ParamStr(0))+'\testq.tq');
 answer:=
 QF.ReadString('Cool Test','po1'+inttostr(q),answer);
 QF.Free;
 Result:=answer;
end;

messagedlg('Ответ правильный!',mtInformation,[mbok],0);
//и вызываем вслед за этим процедурку 
ReadQuestions(номер следующего вопроса);

procedure TForml.XoRlClick(Sender: TObject);
begin
if not InputQuery('XOR', 'Введите число xor:', xr_num)
then Exit;
end;

procedure TForml.N5Click(Sender: TObject);
j var
xr: string; //зашифрованный текст
i: integer; //счетчик цикла
1 begin
for i:=1 to Length(Memol.Text) do
begin //перебираем каждый символ в тексте
//выполняем указанное пользователем смещение
xr := xr + Chr(Ord(Memol.Text[i]) xor StrToInt(xr_num));
end;
//заменяем оригинальный текст на зашифрованный
Memol.Text := xr;

function TForm1.ReadAnswer(q:integer):integer;
var QF:TIniFile;
    answer:integer;
begin
 QF:=TIniFile.Create(ExtractFileDir(ParamStr(0))+'\  testq.tq');
 answer:=
 QF.ReadInteger('Cool Test','po1'+inttostr(q),answer); // ошибочка была(в торопях писал)!:))
 QF.Free;
 Result:=answer;
end;