Laufzeitfehler R6025

[EWeiss]

Bekomme in meiner Funktion diesen benannten Fehlercode
Jemand ne ahnung warum ?

Delphi-Quellcode:

function TSkinEngine.FileOperation(hDlg: HWND; Srce: PAnsiChar; Target: PAnsiChar;
  Title: PAnsiChar; FlagDialog: Integer; wFunc: Integer): Integer;
var
  ErrCode: Integer;
  Fos: TSHFILEOPSTRUCT;
begin
    ZeroMemory(@Fos, SizeOf(Fos));
    if FileExists(Srce) then
    begin
       Fos.Wnd   := hDlg;
       Fos.wFunc := wFunc;
       Fos.pFrom := Srce;
       Fos.pTo   := Target;
       Fos.fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
       if FlagDialog <> 0 then
       begin
          Fos.lpszProgressTitle := Title;
          Fos.fFlags := FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR or FOF_SIMPLEPROGRESS
       end;
       ErrCode := SHFileOperation(Fos);
    end else
       ErrCode := 2;

    Result := ErrCode;
end;

Machmal gehts ohne probleme dann wieder nicht.

gruss Emil