Dateien kopieren mit Delphi 1

[markus lemcke]

Hallo,

ich habe folgende kopierroutine aus dem web:
function CopyFile( src, dest: String): Boolean;
var s, d: TOFStruct;
fs, fd: Integer;
fnSrc, fnDest: PChar;
begin
src:=src + #0;
dest:=dest + #0; { Trick, um aus einem String ein ASCIIZ zu machen:}
fnSrc:=@src[1];
fnDest:=@dest[1];
fs := LZOpenFile( fnSrc, s, OF_READ );
fd := LZOpenFile( fnDest, d, OF_CREATE );
if LZCopy( fs, fd ) < 0
then Result:=False
else Result:=True;
{ Dateien schliessen}
LZClose( fs );
LZClose( fd );
end;

aber irgendwie funzt die nicht!
habe die Pfade mi showmesse anzeigen lassen, die stimmen.
ich möchte praktisch eine datei im selben verzeichnis kopieren und die kopie soll einen anderen Namen haben wie das original!

wer weiss ne zuverlässige kopierroutine!

[Perlsau]

Kopieralgorhitmus

FUNCTION DateiKopieren(Quelle, Ziel : STRING) : BOOLEAN;
VAR
  mem : TMemoryStream;
  gut : BOOLEAN;
BEGIN
     gut := FALSE;
     mem := TMemoryStream.Create;
     try
        mem.LoadFromFile(Quelle);
        mem.SaveToFile(Ziel);
        gut := TRUE;
     finally
            mem.Free;
     END;
     Result := gut;
END;

[Christian Marquardt]

Man sollte meinen, nach einem halben Jahr sollte das Problem erledigt sein, zumal
"aber irgendwie funzt die nicht!"
kein Fehler ist