anchor.diff:  
   class procedure TUserInterface.ShowMessagesForm;
   begin
  -  try
  -    FUILock.Acquire;
  +  FUILock.Acquire;
  +  try
       if not Assigned(FMessagesForm) then begin
          FMessagesForm := TFRMMessages.Create(FMainForm);
          FMessagesForm.CloseAction:= caFree;
  
positive.code: 
  class procedure TUserInterface.ShowPendingOperations;
  begin
    try
      FUILock.Acquire;
      if not Assigned(FPendingOperationForm) then begin
        FPendingOperationForm := TFRMPendingOperations.Create(FMainForm);
        FPendingOperationForm.CloseAction:= caFree;
  
negative.code: 
  class procedure TUserInterface.ShowLogsForm;
  begin
    FUILock.Acquire;
    try
      if not Assigned(FLogsForm) then begin
         FLogsForm := TFRMLogs.Create(FMainForm);
         FLogsForm.CloseAction:= caFree;
  