1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function FileCopy(sVon,sNach: String ):  Boolean;
 var S,D: TFileStream;    // Source & Destination
begin {FileCopy}
  Result := False;
  S := TFileStream.Create(sVon, fmOpenRead );
  D := TFileStream.Create(sNach, fmOpenWrite or fmCreate );
  D.CopyFrom(S, S.Size ) ;
  D.Free;
  S.Free;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type
 TCopyFileFlag = (cffOverwriteFile, cffCreateDestDirectory, cffPreserveTime );
 TCopyFileFlags = set of TCopyFileFlag;
 
function CopyFile(const SrcFilename, DestFilename: string): boolean;
function CopyFile(const SrcFilename, DestFilename: string; PreserveTime: boolean): boolean;
function CopyFile(const SrcFilename, DestFilename: string; Flags: TCopyFileFlags=[cffOverwriteFile]): boolean;

uses 
...
fileutil
...

CopyFile(SourceName, DestName, [cffPreserveTime, cffOverwriteFile]);                    

1:
2:
3:
4:
5:

BOOL CopyFile(
  LPCTSTR lpExistingFileName,
  LPCTSTR lpNewFileName,
  BOOL    bFailIfExists
);                    

1:

if CopyFile(sVon, sNach, false) = 0 then                    

1:

if CopyFile(@sVon[1], @sNach[1], false) = false then ...