Shellfileoperation (Datei kann nicht kopiert werden)

[freeriders]

Mit Copyfile macht er sich leider erst gar nicht die Mühe zu kopieren.
Vermute aber, dass es daran liegt, dass ich mit einem Klick auf den Button auch noch die Ini schreibe.
Ich denke die Variablen behaken sich, denn er lädt jetzt auch das Ini File nicht mehr, was ja auch durch eine Variable getätigt wird.
Nur habe ich leider keine Ahnung wie ich das ändere

Mein Variablen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);

var s: string;
var Ini: TIniFile;
var
von, nach: string;

Und mein Copyfile Code:

Delphi-Quellcode:

begin

 if RadioButton1.Checked then

  begin
  von := GetCurrentDir+'\ORG_Daten\fifa.db';
    nach := Label1.Caption+'data\cmn\fifa.db';
    Copyfile(PChar(von),PChar(nach), false);
  end;