[T-dayne]

вот что происходит при создании формы

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
var
   f:          TextFile;
   iTmp, i, k: Integer;
   strTemp:    String;
 begin
   AssignFile(f, 'c:\data.txt');
   Reset(f);
   with StringGrid1 do
   begin

    Readln(f, iTmp);
     ColCount := iTmp;

    Readln(f, iTmp);
     RowCount := iTmp;

    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, strTemp);
         Cells[i, k] := strTemp;
       end;
   end;
   CloseFile(f);
end; 


однако таблица, остается пустой.(файл не пустой)