[lmikle]

Извращенцы.

Код:

procedure LoadGridFromFile(AFileName : String; AGrid : TStringGrid);
var
  I, C : Integer;
  L, S : String;
  Lst : TStringList;
begin
  If Not FileExists(AFileName) Then
    Raise Exception.CreateFmt('File does not exist (%s).',[AFileName]);

  
  Lst := TStringList.Create;
  Try
    Lst.LoadFromFile(AFileName);
    AGrid.Rows := Lst.Count;
    AGrid.Cols := 1;
    For I := 0 To Lst.Count-1 Do
      Begin
        L := Lst[i];
        C := 0;
        While S <> '' Do
          Begin
            L : = Copy(S,1,Pos(#8,S)-1);
            Inc(C);
            If AGrid.Cols < C Then AGrid.Cols := C;
            AGrid.Cells[I,C] := L;
            S := Copy(S,Pos(#8,S),Length(S));
          End;  
      End;
  Finally
    Lst.Free;
  End;
end;

Как-то так. Должно работать...