Pogrzebałem na 4programmers, znalazłem tą funkcje read i troche na swoje potrzeby przerobiłem. Niestety cos jest nie tak ponieważ stringgrid pozostaje pusty (błędów nie wyświetla)
var TF : TextFile; C : Char; l1:string; x,y:integer;beginx:=1;y:=1; AssignFile(TF, 'C:\plik.txt'); try Reset(TF); while not Eof(TF) do begin Read(TF, C); if c <> ' ' then l1:=l1+c else begin if x>10 then begin y:=y+1; x:=1; end; Stringgrid1.Cells[x,y]:=l1; x:=x+1; end; end; finally CloseFile(TF); end;end;