anchor.diff:  
   class procedure TUserInterface.ShowOperationsExplorer;
   begin
  -  try
  -    FUILock.Acquire;
  +  FUILock.Acquire;
  +  try
       if not Assigned(FOperationsExplorerForm) then begin
         FOperationsExplorerForm := TFRMOperationExplorer.Create(FMainForm);
         FOperationsExplorerForm.CloseAction:= caFree;
  
positive.code: 
  class procedure TUserInterface.OnSubFormDestroyed(Sender: TObject);
  begin
    try
      FUILock.Acquire;
      if Sender = FAccountExplorer then
        FAccountExplorer := nil // form free's on close
      else if Sender = FPendingOperationForm then
  
negative.code: 
  class procedure TUserInterface.ShowAccountExplorer;
  begin
    FUILock.Acquire;
    try
      if not Assigned(FAccountExplorer) then begin
         FAccountExplorer := TFRMAccountExplorer.Create(FMainForm);
         FAccountExplorer.CloseAction:= caFree;
  