TFileCopy error

[HCB]

Hallo,
ein Problem treibt mich hierher, in der Hoffnung Ideen oder Lösungen zu finden.
Ich erstelle ein Verzeichnis, ok. Dann werden Dateien hinein kopiert, ok.
Ein zweiter Rechner (oder eine zweite Instanz vom Programm) startet die App.
Das Verzeichnis mit den vorhandenen Files wird gelöscht, dann neu erstellt, ok.
Jetzt sollen neue Dateien hinein kopiert werden - Jetzt wir ein Fehler ausgeworfen -
und es wird nichts kopiert.

Hier der Code:
try
IsRecursive := true;
if TDirectory.Exists(ExportPfad) then TDirectory.Delete(ExportPfad, IsRecursive);
except
ErrorMsg('Fehler beim Löschen im Verzeichnispfad!',ArchivPfad+#13+ExportPfad,Modul) ;
end;

TDirectory.CreateDirectory((ExportPfad));
if ConfirmMsg('Sollen jetzt die '+IntToStr(DataMod.Q_ReExport.RecordCount)+' Dateien exportiert werden?','') = mrYes
then
begin
DataMod.Q_ReExport.First;
for I:= 1 to DataMod.Q_ReExport.RecordCount do
begin
try
TFile.Copy(ArchivPfad+IntToStr(DataMod.Q_ReExporti d.Value)+'.pdf',ExportPfad+DataMod.Q_ReExportReNum mer.Value+'.pdf');
except
ErrorMsg('Fehler beim Kopieren, Dateiname nicht existent oder Pfad falsch! '+#13+ArchivPfad+IntToStr(DataMod.Q_ReExportid.Val ue)+'.pdf'+#13
+ExportPfad+DataMod.Q_ReExportReNummer.Value+'.pdf '+#13+'Bitte wiederholen.','',Modul);
EXIT;
end;
DataMod.Q_ReExport.next;
end;
end;
end;
end;

Hat jemand eine Idee woran das liegen könnte?

LG Harry