Meine "Verschiebefunktion" soll automatisch überschreiben.

[Rapthor]

Wie krieg ich folgende Funktion so geschrieben, dass sie ggf. automatisch überschreibt ?

Delphi-Quellcode:

function verschieben(FromPos, ToPos: String): Boolean;
begin
if (ToPos[Length(ToPos)] <> '\') then
    ToPos := ToPos + '\';
    Result := RenameFile(FromPos, ToPos + ExtractFileName(FromPos));
end;