[Delphi] Заполнение StringGrid из txt

[ZePr]

Нужно заполнить столбец StringGrid из тхт. На форума нашёл кусок кода немного переделал и он даже работает...но выдаёт постоянно ошибку (List index out of bounds (4))

procedure TForm1.sButton2Click(Sender: TObject);
var
z1,z2:integer;
SL: tstringlist;
begin
SL := TStringList.Create;
try
SL.loadfromfile('file.txt');
z2:=sl.Count+1;
for z1:=0 to z2 do stringgrid1.Cells[1,z1] := SL.Strings[z1];
finally
SL.Free;
end;
end;

[Grag]

А может вот так правильней будет?:

z2:=sl.Count-1;

[ZePr]

Да...так и есть, спасибо