anchor.diff:  
    Blk.SetGlobalSettings(glob);
   
  - // najdeme spravne misto pro novy bloky
  - i := 0;
  - while ((i < Self.data.Count) and (Self.data[i].GetGlobalSettings().id < glob.id)) do Inc(i);
  -
    Blk.OnChange := Self.BlkChange;
  - Self.data.Insert(i, blk);
  - BlokyTableData.BlkAdd(i);
  + index := Self.FindPlaceForNewBlk(glob.id);
  + Self.data.Insert(index, blk);
  + BlokyTableData.BlkAdd(index);
    Result := Blk;
   end;//function
   
  
positive.code: //add 1 block
  function TBlky.Add(typ:Integer; glob:TBlkSettings):TBlk;
  var Blk:TBlk;
      i, index:Integer;
  begin
   // kontrola existence bloku stejneho ID
   if (Self.IsBlok(glob.id)) then Exit(nil);
  
negative.code:     procedure BlkChange(Sender:TObject);
  
      function GetCount():Integer;
  
      function FindPlaceForNewBlk(id:Integer):Integer;
  
    public
      constructor Create();
  