Вывод текста из файла в StringGrid

[Stacy McKritsky]

Здравствуйте! Есть программа для заполнения StringGrid из файла. Она заполняет два столбика StringGrid подстроками (количество столбиков указано цифрой 2), в файле подстроки в строках разделены пробелами. Как изменить программу так, чтобы она заполняла j столбиков? То есть чтоб j была переменная и цикл вывода в ячейки от нее зависел. Помогите, пожалуйста!

procedure TForm1.Button1Click(Sender : TObject);
var
  L : TStringList;
  I : Integer;
begin
  L := TStringList.Create;
  L.LoadFromFile('test.txt');
  StringGrid1.RowСount := L.Count;
  StringGrid1.ColCount := 2;
  For I := 0 To L.Count-1 Do
    Begin
       StringGrid1.Cells[0,i] := Copy(L[i],1,Pos(' ',L[i])-1);
       StringGrid1.Cells[1,i] := Copy(L[i],Pos(' ',L[i])+1,Length(L[i]));
    End;
  L.Free;
end;

[Stilet]

procedure TForm1.Button1Click(Sender : TObject);
var
  L,r : TStringList;
  I,j : Integer;
begin
  L := TStringList.Create; r := TStringList.Create;
  L.LoadFromFile('test.txt');
  StringGrid1.RowСount := L.Count;
  StringGrid1.ColCount := 2;
  For I := 0 To L.Count-1 Do
    Begin
       r.DelimitedText:=L[i];
       if StringGrid1.ColCount<r.Count then StringGrid1.Count:=r.Count;
       StringGrid1.Row[i].Text:=r.Text;
    End;
  L.Free; r.Free;
end;

Годится?