anchor.diff:        for i := 0 to list.Count-1 do begin
           FOperationsGrid.FOperationsResume.Add(list[i]);
         end;
  +      Synchronize(FOperationsGrid.InitGrid);
         FOperationsGrid.InitGrid;
       end;
     finally
  
positive.code:   FisProcessing := True;
    FProcessedList := TOrderedCardinalList.Create;
    Suspended := False;
    ExecuteUIThread := True;
  end;
  
  destructor TAccountsGridUpdateThread.Destroy;
  
negative.code:         FBlockChainGrid.FBlockChainDataList.Add(Llist[i]);
        end;
        if Assigned(FBlockChainGrid.DrawGrid) then begin
          if Llist.Count>0 then FGridUpdateCount := Llist.Count+1
          else FGridUpdateCount := 2;
          Synchronize(RefreshGrid);
        end;
      end;
    finally
      Llist.Free;
    end;
  end;
  
  procedure TBlockChainGridUpdateThread.RefreshGrid;
  begin
    if not Assigned(FBlockChainGrid) or not Assigned(FBlockChainGrid.DrawGrid)
      then Exit;
    FBlockChainGrid.DrawGrid.RowCount := FGridUpdateCount;
    FBlockChainGrid.FDrawGrid.Invalidate;
  end;
  
  constructor TBlockChainGridUpdateThread.Create(ABlockChainGrid : TBlockChainGrid);
  