erro ao sair do sistema - pdoxusrs usando interbase

Olá!
Estou executando um sistema em rede, só q quando saio do sistema aparece uma mensagem q não é possivel excluir o arquivo PDOXUSRS, e olhando no fórum, vi q esse erro é ocasionado quando usa Paradox, mas o problema é q estou usando interbase. Ao debugar, vi que esse erro ocorre quando delete um pasta temporária, cuja a função está descrita abaixo:


function DeleteFolder(FolderName: String; LeaveFolder: Boolean): Boolean;
var
r: TshFileOpStruct;
begin
Result := False;
if not DirectoryExists(FolderName) then
Exit;
if LeaveFolder then
FolderName := FolderName + ´ *.* ´
else
if FolderName[Length(FolderName)] = ´ \ ´ then
Delete(FolderName,Length(FolderName), 1);
FillChar(r, SizeOf(r), 0);
r.wFunc := FO_DELETE;
r.pFrom := PChar(FolderName);
r.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
Result := ((ShFileOperation(r) = 0) and (not r.fAnyOperationsAborted));
end;

O q ou onde está errado???

Obrigada
Livia