Вложение циклов While

[rightfox]

Ребят, помогите, что я делаю не так:
Задача распределить данные из тхт в StringGrid. Все вроде бы должно работать, но заполняется только одна строка.
http://www.pictureshack.ru/view_5685Snimok.JPG

procedure TForm1.Button2Click(Sender: TObject);
var
txt: TextFile;
FileName,st,str: string;
t: Tstrings;
i,j:integer;
begin
FileName:=Label1.Caption;
AssignFile(txt, FileName);
reset(txt);
while not EOF(txt) do
begin
readln(txt,st);
str:=str+';'+st;
end;
t:=TStringList.Create;
t.text:=stringReplace(str,';',#13#10,[rfReplaceAll]);
i:=0;
j:=0;
while j < 3 do
begin
 while i < 6 do
 begin
 StringGrid1.Cells[i,j+1]:=t[i+1];
 i:=i+1;
 end;
j:=j+1;
end;
end;

[so_well]

пример файла дайте