Открыть файл через компонент OpenFileDialog

var  f,g:text;
     fname,str,s,zam:string[255];
     n_zam : longint;
begin
write('Введите имя файла без расширения');
readln(fname);
fname:=fname+'.txt';
if not fileexists(fname)then
 begin
  write('Файл не найден');
  exit;
 end;
assign(f,fname);
reset(f);
assign(g,'rez'+fname);
rewrite(g);
write('Введите имя для замены:');
readln(zam);
s:='Name: ';
n_zam := 0; // считаем замены
while not eof(f) do
   begin
      readln(f,str);
      if pos(s,str)>0 then
         begin
         inc(n_zam);
         writeln(g,copy(str,1,pos(s,str)+length(s)-1),zam,' + ',n_zam);
         end
       else writeln(g,str);
   end;
close(f);
close(g);
END.

{$reference System.Windows.Forms.dll}
uses system.windows.forms, system.threading;
 
procedure main;
var
  f, g: text;
  fname, str, s, zam: string[255];
  n_zam: longint;
begin
  
  var ofd := new OpenFileDialog();
  ofd.ShowDialog();
  fname := ofd.FileName;
  // write('Введите имя файла без расширения');
  // readln(fname);
  // fname:=fname+'.txt';
  if not fileexists(fname) then
  begin
    write('Файл не найден');
    exit;
  end;
  assign(f, fname);
  reset(f);
  assign(g, 'rez' + fname);
  rewrite(g);
  write('Введите имя для замены:');
  readln(zam);
  s := 'Name: ';
  n_zam := 0; // считаем замены
  while not eof(f) do
  begin
    readln(f, str);
    if pos(s, str) > 0 then
    begin
      inc(n_zam);
      writeln(g, copy(str, 1, pos(s, str) + length(s) - 1), zam, ' + ', n_zam);
    end
    else writeln(g, str);
  end;
  close(f);
  close(g);
end;
 
var
  Th: Thread;
 
begin
  Th := new Thread(main);
  Th.SetApartmentState(ApartmentState.STA);
  Th.Start(); 
end.

24  assign(g, 'rez' + ExtractFileName(fname));