Копирование файла из одной директории в другую

var
  Injection: TInjection;
  PathFile: String;
 
implementation
 
{$R *.dfm}
 
procedure TInjection.SpeedButton1Click(Sender: TObject);
begin
 if SelectDirectory('Выберите папку с вашей игрой', '', PathFile) then // Выбор папки куда копировать
    Edit1.Text := PathFile; // Выводим путь к папке 
end;
 
procedure TInjection.SpeedButton2Click(Sender: TObject);
begin
 CopyFile(PChar(OpenDialog1.FileName),PChar(PathFile),True);  // Не могу понять почему не копирует
end;
 
procedure TInjection.SpeedButton7Click(Sender: TObject);
begin
 if OpenDialog1.Execute then // Выберем файл который нужно скопировать
    Edit2.Text := OpenDialog1.FileName; // Выводим путь к файлу 
end;

 if CopyFile(PChar(OpenDialog1.FileName),PChar(PathFile),True)
  then showmessage('Скопировано успешно')
   else ShowMessage('Ошибка: '+IntToStr(GetLastError));

showmessage(PathFile + '\' + 'MyHack.dll')

  PathFile: String;
 
implementation
 
{$R *.dfm}
 
procedure TInjection.SpeedButton1Click(Sender: TObject);
begin
 if SelectDirectory('Выберите папку с вашей игрой','', PathFile) then
    Edit1.Text := PathFile;
end;
 
procedure TInjection.SpeedButton2Click(Sender: TObject);
begin
 if not FileExists(PathFile + '\' + 'MyHack.dll') then
        CopyFile(PChar(OpenDialog1.FileName),PChar(PathFile + '\' + 'MyHack.dll'),True)
 else begin
        DeleteFile(PathFile + '\' + 'MyHack.dll');
        CopyFile(PChar(OpenDialog1.FileName),PChar(PathFile + '\' + 'MyHack.dll'),True)
 end;
end;
 
procedure TInjection.SpeedButton7Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
    Edit2.Text := OpenDialog1.FileName;
end;