[Alegun]

Сообщение от Qlimax

...вывод в грид мне нужен чисто для проверки )

Тогда вот так

Код:

 var
 Mass: Array of Array of Real;
procedure TForm1.Button2Click(Sender: TObject);
var
 f: TextFile;
 i,b,c,d: integer;
 str: string;
 begin
  AssignFile(f,OpenDialog1.FileName);
  Reset(f);
  Readln(f, c);
  Readln(f, d);
  SetLength(mass,c,d);
  for i:= 0 to c do for b:= 0 to d do
      begin
       Readln(f,str);
        mass[i,b]:= StrToFloat(str);
      end;
   CloseFile(f);
end;

Только всё равно нужно в файл размерность массива добавить.