[Assistant]

вот как-то так:

Код:

var
  ff: TextFile;
  St: string;
  i: integer;
begin
  AssignFile(ff, Form3.fllst1.FileName);
  Reset(ff);

  stringGrid1.rowCount := 0;
  i := 0;

  try
    while not Eof(ff) do
    begin
      ReadLn(ff, St);
      with stringGrid1 do
      begin
        Cells[1,i] := StringReplace(St, #9, #13#10#15, [rfReplaceAll]); // - тут 1 номер столбца начиная с 0
        rowCount := i+1;
        Inc(i);
      end; {With}
    end; {While}
  finally
    CloseFile(ff);
  end;
end;