Versuch es mal mit Streams:
Delphi-Quellcode:
procedure copy(Source,Destiny:string)
var Filesource,FileDestiny:TFileStream;
begin
FileSource:=TFilestream.Create(Source,fmOpenRead);
FileDestiny:=TFileStream.Create(Destiny,fmCreate);
FileDestiny.CopyFrom(FileSource,FileSource.Size);
end;
Ich hoffe das ist was du brauchst.