Hi,
normalerweise würde ich dir jetzt keinen Code schreiben, da es ja sowas von einfach ist, die zu lösen, aber nunja...
Delphi-Quellcode:
procedure FileCopy(const FileName: String; DestDir: String);
begin
DestDir := IncludeTrailingPathDelimiter(DestDir); // Kein Ahnung, ob das bei dir funktioniert,
// rückst ja deine Delphiversion nicht raus...
CopyFile(FileName, DestDir + ExtractFileName(FileName), true);
end;