[T-dayne]

попытался сделать так:

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
var
   f:          tstringlist;
   iTmp, i, k, l: Integer;
   strTemp:    String;
 begin
   f:=tstringlist.Create();
   f.loadfromfile('c:\test.txt');
   with StringGrid1 do
   begin
   for l:=1 to 10 do
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         strtemp:=f.strings[l];
         Cells[i, k] := strTemp;
       end;
   end;
f.Free;
end; 


тоже не срабатывает!