Открытие файла через OpenFileDIalog и записать имя файла в переменную

var s : string := OpenFileDialog1.FileName;

type vector=array of array of real;
 var i,n,n1,n2,j:integer;
     t:vector;
     file1:text;
     string1:string;
begin
//в string1 заппрашивается у пользователя путь к файлу
assign(file1,string1);
 reset(file1);
 i := -1;
  while not Eof(file1) do begin
    Inc(i);
    SetLength(t, i + 1);
    j:= -1;
    while not Eoln(file1) do begin
      Inc(j);
      SetLength(t[i], j + 1);
      Read(file1, t[i, j]);
    end;
    ReadLn(file1);
  end;
  CloseFile(file1);
end.

{$apptype windows}
{$reference System.Windows.Forms.dll}
{$reference System.Core.dll}
 
uses System.Text, System, System.Windows.Forms, System.Net,
  System.IO, System.Linq; // добавляем вот эти 2 модуля
 
// ...
 
type 
  vector = array of real;
  matrix = array of vector;  
var 
  t : matrix;
 
function GetLine(L : string) : vector;
begin
  result := &Array.ConvertAll(L.Split('  '.ToCharArray()), StrToFloat);
end;
 
procedure MyButtonClick (sender: Object; e: EventArgs);
begin
  var OpenFileDialog1 : OpenFileDialog := new OpenFileDialog();
  if OpenFileDialog1.ShowDialog = DialogResult.OK then
  begin
    t := &File.ReadAllLines(OpenFileDialog1.FileName).Select(GetLine).ToArray();
  end;
end;

    var rows : integer := t.Length; // число строк
    var cols : integer := t[0].Length; // число столбцов

implementation
 
procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
  openFileDialog1.ShowDialog;
end;
 
procedure Form1.openFileDialog1_FileOk(sender: Object; e: ComponentModel.CancelEventArgs);
begin
  label1.Text:=openFileDialog1.FileName;
end;

implementation
 
procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
  openFileDialog1.ShowDialog;
end;
 
procedure Form1.openFileDialog1_FileOk(sender: Object; e: ComponentModel.CancelEventArgs);
begin
  label1.Text:=openFileDialog1.FileName;
end;

OpenFileDialog1.ShowDialog();
  s:=OpenFileDialog1.FileName;
richtextBox2.Text := System.IO.File.ReadAllText(s);