Как скопировать информацию в другой файл?

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo2: TMemo;
    Button1: TButton;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    SaveDialog2: TSaveDialog;
    Memo1: TMemo;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  f1,f2:TextFile;
  i,j:byte;
  f_n1,f_n2:string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  mat:array [1..2,1..6] of single;
begin
  if SaveDialog1.Execute then
  begin
   f_n1:=SaveDialog1.FileName;
   AssignFile(f1,f_n1);
   Rewrite(f1);
   for i:=1 to 2 do
   begin
     for j:=1 to 6 do
     begin
       mat[i,j]:=Random;
          write(f1,mat[i,j]:3:2, '  ');
     end;
    writeln(f1);
   end;
   CloseFile(f1);
  end;
  Memo1.Lines.LoadFromFile(f_n1);
end;

 if SaveDialog2.Execute then
   begin
   AssignFile(f1,f_n1);
   Reset(f1);
   f_n2:=SaveDialog2.FileName;
   AssignFile(f2,f_n2);
   Rewrite(f2);
   CopyFile('C:\Users\1\Desktop\7\f_n1.txt','C:\Users\1\Desktop\7\f_n2.txt',true);
   if not CopyFile(PChar(f_n1),PChar(f_n2),true)
   then ShowMessage('Error code = '+IntToStr(GetLastError));
   CloseFile(f1);
   CloseFile(f2);