[evgen-20058]

вот мой код....запись происходит в фиксированное количество колонок....мне же надо чтобы происходило все динамически

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
FName, str:string;
f:TextFile;
n, i:integer;

begin
if OpenDialog1.Execute then begin
  fName := OpenDialog1.FileName;
  end;

with StringGrid1 do begin
  RowCount := 0;
  ColCount := 0;

  AssignFile(f,FName);
  Reset(f);
  n:=0;
  while not eof(f) do
  begin
    readln(f, str);
    n:=n+1;
  end;
RowCount:=n+1;
Cols[0].LoadFromFile(fName);
for i:=RowCount-1 downto 1 do Rows[i].Text:=Rows[i-1].Text;
for i:=1 to RowCount-1 do
  begin
  Rows[i].Delimiter:=#9;
  Rows[i].DelimitedText:=Cells[0,i];
  end;
  end;//stringGrid1
end;//button1click