загрузить в метку текст из файла

[ReportCube]

А зачем здесь точка с запятой, если каждый вопрос на новой строке.
mmo1.Lines[0] - это вопрос № 0
mmo1.Lines[n] - это вопрос № n

[Алексей_2012]

Спасибо, а теперь суть программы, программа-тест, есть три текстовых файла:

1: вопросы, загружаются в метку, ради чего тему и создавал
2: ответы-правильные ответы, с ними будут сравниваться радиокнопки
3: варианты ответов(4) варианта, которые в свою очередь загрузятся в радиокнопки

логика такая: создаются три массива типа string, в первый массив заносятся вопросы, во второй-ответы, в третий-варианты ответа, дак вот, надо вывести в МЕМО результаты сравнения второго массива, с третьим, написал все вроде так как надо, но результаты выдаются неверные, помогите, пожалуйста, вот код:

var
 i:Integer=0;
  q:Integer=0;
procedure TForm1.btn2Click(Sender: TObject);
var
  u1:Byte;
    s:byte;
  TS1,TS2,TS3 : TStringList;
csml,asml:array [1..51] of string;
bsml:array[1..201] of string;
label m1;
begin
 lbl5.Font.color:=clRed;
pnl6.Color:=clRed;
lbl2.caption:='ВОПРОС №';
TS1 := TStringList.Create;
TS1.LoadFromFile(ExtractFilePath(ParamStr(0))+'вопросы.txt');
TS2 := TStringList.Create;
TS2.LoadFromFile(ExtractFilePath(ParamStr(0))+'варианты.txt');
TS3 := TStringList.Create;
TS3.LoadFromFile(ExtractFilePath(ParamStr(0))+'ответы.txt');
try
asml[i]:=TS1[i];
csml[i]:=TS3[i];
s:=length(asml[i]);
if s>75 then begin lbl6.font.size:=9; lbl2.font.size:=9;lbl6.Top:=95;lbl2.Top:=95;end else  begin
lbl6.font.size:=11; lbl2.font.size:=11;
lbl6.Top:=88;lbl2.Top:=88;
end;
lbl6.caption:=inttostr(i)+': '+asml[i];
bsml[q]:=TS2[q];
rb1.caption:=bsml[q];
if csml[i]=rb1.Caption then begin inc(u,2);
mmo1.Lines.Add(IntToStr(i)+'Правильно'); end;
inc(q);
bsml[q]:=TS2[q];
rb2.caption:=bsml[q];
if csml[i]=rb2.Caption then begin inc(u,2);
mmo1.Lines.Add(IntToStr(i)+'Правильно'); end;
inc(q);
bsml[q]:=TS2[q];
rb3.caption:=bsml[q];
if csml[i]=rb4.Caption then begin
inc(u,2);
mmo1.Lines.Add(IntToStr(i)+'Правильно'); end;
inc(q);
bsml[q]:=TS2[q];
rb4.caption:=bsml[q];
if csml[i]=rb4.Caption then begin inc(u,2);
mmo1.Lines.Add(IntToStr(i)+'Правильно'); end;
Inc(i);
if q>200 then goto m1 else
inc(q);
if (i>0) and (i<49) then btn2.caption:='СЛЕДУЮЩИЙ ВОПРОС' else
if i=50 then begin btn2.caption:='РЕЗУЛЬТАТЫ';  end;
m1:if (i>50) and (q>200) then begin  i:=0;q:=0; TS1.clear; btn2.caption:='НАЧАТЬ ТЕСТ ЗАНОВО';lbl2.Caption:='';
showmessage('ПОЗДРАВЛЯЕМ! ВЫ ОТВЕТИЛИ НА ВСЕ ВОПРОСЫ ');
pnl6.color:=clBlue;
lbl6.caption:='РЕЗУЛЬТАТ СМОТРИТЕ НА ПАНЕЛЕ СПРАВА !!!';
u1:=100-u;
mmo1.Clear;
mmo1.Lines.Add('Ваши результаты:');
mmo1.Lines.Add('');
mmo1.Lines.Add('Правильно отвечено: '+inttostr(u));
mmo1.Lines.Add('Неправильно отвечено: '+inttostr(u1));
end;
finally
FreeAndNil(TS1);
FreeAndNil(TS2);
FreeAndNil(TS3);
end;
end;

неправильная работа условия при сравнении массива с радиокнопкой, исправьте пожалуйста

[Алексей_2012]

или может другой алгоритм предложите? желательно подробнее))