[Страдалецъ]

Проще кинуть рабочий код, чем описывать, что не так. Вот сравните:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 Mass: Array of Array of Real;
 F: TextFile;
 m,n: integer;
begin
 if not OpenDialog1.Execute then Exit;
 AssignFile(F, OpenDialog1.FileName);
 Reset(F);
 m := 0; n := 0;
 SetLength(Mass, m, n);
 while not Eof(F)
 do begin
    m := Length(Mass);
    SetLength(Mass, m + 1);
    while not EoLn(F)
    do begin
       n := Length(Mass[m]);
       SetLength(Mass[m], n + 1);
       Read(F, Mass[m, n]);
       end;
    ReadLn(f);
    end;
 CloseFile(f);
 StringGrid1.FixedCols := 0; StringGrid1.FixedRows := 0;
 StringGrid1.ColCount := 1; StringGrid1.RowCount := Length(Mass);
 for m := 0 to Length(Mass) - 1
 do begin
    if StringGrid1.ColCount < Length(Mass[m])
    then StringGrid1.ColCount := Length(Mass[m]);
    for n := 0 to Length(Mass[m]) - 1
    do StringGrid1.Cells[n, m] := FloatToStr(Mass[m,n]);
    end;
end;