Заполнить stringgrid из файла по столбикам

procedure TForm1.Button3Click(Sender: TObject);
var
f:textfile;
j,n:integer;
s:string;
begin
If OpenDialog1.Execute Then
begin
assignfile(f,OpenDialog1.Filename);
reset(f);
Readln(f, n);
stringgrid1.ColCount := n;
Readln(f, n);
stringgrid1.RowCount := n;
for j := 1 to stringgrid1.rowcount - 1 do
begin
Readln(F, s);
Stringgrid1.cells[1,j]:=Copy(s, 1,Pos(' ',s)-1);
StringGrid1.Cells[2,j]:=Copy(s,Pos(' ',s)+1,Length(s));
end;
end;
Closefile(f);
end;

assignfile(f,OpenDialog1.Filename);
reset(f);
read(f, n);
stringgrid1.ColCount := n;
for j:=1 to n do
 begin
  readln(f,s);
  Stringgrid1.cells[1,j]:=copy(s,1,pos(' ',s)-1);
  delete(s,1,pos(' ',s));
  StringGrid1.Cells[2,j]:=Copy(s,Pos(' ',s)-1);
  delete(s,1,pos(' ',s));
  StringGrid1.Cells[3,j]:=s;
 end;
end;
Closefile(f);

procedure TForm1.Button1Click(Sender: TObject);
var t:TStringList;
    i:Word;
begin
t:=TStringList.Create; //создадим экземпляр класса
if OpenDialog1.Execute then t.LoadFromFile(OpenDialog1.Filename); //загрузим в него файл
Stringgrid1.RowCount:=t.Count+1; //1 фиксированная строка
StringGrid1.ColCount:=4;
//пусть названия или номера столбцов уже заполнены(0 строка таблицы)
for i:=0 to t.Count-1 do
 begin
  t[i]:=inttostr(i+1)+' '+t[i];//добавим в начало строки ее название, например номер
  with StringGrid1 do
   begin
    //заполним строки и столбцы начиная со второго
    Rows[i+1].Delimiter:=' '; //пусть в строках между словами пробел
    Rows[i+1].DelimitedText:=t[i]; //вставим строку, разбитую на слова
  end;
 end;
end;