Чтение данных из файла

...
  i := 0;
...
  Read(f, mas1[i]);
  Read(f, mas2[i]);
  inc(i)
...

var
myFile : TextFile;
C3 : String;
i: integer;
begin
AssignFile(myFile, 'Test.txt');//Твой текстовый файл
Reset(myFile);
i:=0;
while not Eof(myFile) do begin
ReadLn(myFile, C3);
Mas1[i]:=Trim(Copy(C3,1,Pos(' ',C3)-1))//Первое значение (колонка1)
Delete(C3, 1, Length(Mas1[i])); 
Mas2[i]:=Trim(C3)//Второе значение (колнка2);
inc(i);
end;
CloseFile(myFile);
end;

program test1;
 
{$APPTYPE CONSOLE}
 
uses
  Windows, SysUtils;
 
var
  f    : TextFile;
  mas1 : array of Integer;
  mas2 : array of Integer;
 
begin
  AssignFile(f, 'test2.txt');
  Reset(f);
  while not Eof(f) do
  begin
    SetLength(Mas1, Length(Mas1) + 1);
    SetLength(Mas2, Length(Mas2) + 1);
    Read(f, Mas1[Length(Mas1) - 1]);
    Read(f, Mas2[Length(Mas2) - 1]);
  end;
  CloseFile(f);
end.

var
  f    : TextFile;
  mas1 : array of Integer;
  mas2 : array of Integer;
  s : String;
 
begin
  AssignFile(f, 'test2.txt');
  Reset(f);
  while not Eof(f) do
  begin
    SetLength(Mas1, Length(Mas1) + 1);
    SetLength(Mas2, Length(Mas2) + 1);
    Read(f, Mas1[Length(Mas1) - 1]);
    Read(f, Mas2[Length(Mas2) - 1]);
    ReadLn(f, s);
  end;
  CloseFile(f);
end.

  if OpenDialog1.Execute then
  begin
    AssignFile(f, OpenDialog1.FileName);
...
  end;

procedure TForm1.OKClick(Sender: TObject);
var
  f : TextFile;
  s : String;
  I,J : Integer;
  fName : String[80];
  mas: array[0..100,0..100] of real;
begin
 fName:= LabeledEdit2.Text;
  begin
    AssignFile(f, fName);
    Reset(f);
    while not Eof(f) do
    begin
      SetLength(mas, Length(mas) + 1);
      Readln(f, mas[Length(mas)]);
  //    ReadLn(f, s);
    end;
    CloseFile(f);
  for i := 0 to StringGrid1.RowCount - 1 do 
    for j := 0 to StringGrid1.ColCount - 1 do
  //     StringGrid2.Cells[i,j] := FloatToStr(mas[i,j]);
 
 
  end;