В чем ошибка?delphi7

procedure Tu1.N1Click(Sender: TObject);
 
var st: string;
begin
//AssignFile(f1,'users\'+log+'\'+log+'v1.txt'); // привязка названия к переменной
{$I+}
reset(f1);
{$I-}
read(f1,st);
if st='' then
begin
  test1.show;
  exit;
end;
if st='end' then
begin
  showmessage('Ты *** шоли? Ты прошел тест.');
  exit;
end;
readln(f1,st);
test1.RadioGroup1.ItemIndex:=strtoint(st);
readln(f1,st);
test1.RadioGroup2.ItemIndex:=strtoint(st);
readln(f1,st);
test1.RadioGroup3.ItemIndex:=strtoint(st);
readln(f1,st);
test1.RadioGroup4.ItemIndex:=strtoint(st);
readln(f1,st);
test1.RadioGroup5.ItemIndex:=strtoint(st);
closefile(f1);
test1.show;
end;