[lmikle]

Че-то непонятно с данными. Либо одна цифра лишняя, либо в какой-то колонке должно быть 2 цифры.

А вообще, как-то так:

Код:

var
  F : TStringList;
  I,J : Integer;
  S : String;
  A : Array [0..5] Of String;
begin
  F := TDTringList.Create;
  Try
    F.LoadFromFile('path\previousplaning.txt');
    For I := 1 To F.Count-1 Do
      Begin
        For J := 0 To 5 Do A[J] := ''; // cleanup buffer array
        J := 0;
        S := Trim(F[i]);
        While J < 6 Do
          Begin
            A[J] := Copy(S,1,Pos(' ',S)-1);
            S := Copy(S,Pos(' ',S)+1,Length(S));
            Inc(J);
          End;
    
         // Где-то здесь фигня, т.к. данных больше, чем ячеек
         // Т.е. код будет другой, этот приведен просто для примера
         For J := 0 to 5 Do
           StringGrid1.Cells[J,I] := A[i];
      End;
  Finally
    F.Free;
  End