Mover carpeta y todo su contenido

[MaMu]

Utilizo esta funcion, pero no me funciona, me dice que no se puede leer del Archivo o Carpeta de origen, porque?

Código Delphi [-]
function MoverCarpeta(const carpetaOrigen,
  carpetaDestion: string) : boolean;
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp), #0);
  with FileOp do
  begin
    wFunc := FO_MOVE;
    Wnd := GetDesktopWindow;
    pTo := PChar(carpetaOrigen);
    pFrom := PChar(carpetaDestion+#0#0);
    fFlags := FOF_NOCONFIRMATION or
      FOF_SILENT or FOF_ALLOWUNDO;
  end;
  Result := (ShFileOperation(FileOp) = 0);
end;

Y la llamada es

Código Delphi [-]
procedure TMain.Button1Click(Sender: TObject);
var dir,name,dest,root:string;
begin
 root:=ExtractFilePath(Application.ExeName);
 dir:=root+'SvrDirectory\';
 dest:=root+'SvrHistory\';
 name:=ADOQuery1.FieldByName('carpeta').AsString;
 if ADOQuery1.RecordCount>0
   then begin
    //Muevo Dir
     if MoverCarpeta(dir+name,dest+name) 
       then 
     //Borra Dir
    // DeleteDir(dir+name);
       end;    
    ADOQuery1.Delete;
     ADOQuery1.Close;
     ADOQuery1.Open;
   end;
end;