Error de Access denied en aplicación de Descompresión de Archivos en Lazarus

[javiparera]

Genio Nelson...jeje por el momento lo resolví haciendo:

Código Delphi [-]
 if (not DirectoryExists('C:\carpetaZIP')) then
         crearcarpeta(dirdestino)
      else
         dirdestino:='C:\carpetaZIP';

porque el módulo de remover la carpeta no lo puse que se ejecute a través de un botón..sino que lo mando a llamar, que entiendo debe ser lo mismo, entonces me queda de esta manera:

Código Delphi [-]
function DeleteFolder(const DirectoryName:String):Boolean;
begin
  try
     if DirectoryExists(DirectoryName) then
     begin
        DeleteDirectory(DirectoryName,True);
        RemoveDir(DirectoryName);
        Result:=True;
     end
     else
        Result:=False;
  except
     Result:=False;
  end;
end;

y lo mando a llamar así:

Código Delphi [-]
 B:=DeleteFolder(borrardir); // Donde "B" es una variable boolean

saludos.-