anchor.diff:  
   procedure TF_BlkZamek.NewBlkOpenForm;
    begin
  -  E_Nazev.Text          := '';
  -  SE_ID.Value           := Blky.GetBlkID(Blky.count-1)+1;
  +  E_Nazev.Text := '';
  +  SE_ID.Value := Blky.GetBlkID(Blky.count-1)+1;
   
  -  Self.Caption := 'Editovat data noveho bloku';
  +  Self.Caption := 'Editovat data nového bloku';
     Self.ActiveControl := Self.E_Nazev;
    end;
   
  
positive.code:     procedure B_StornoClick(Sender: TObject);
      procedure B_SaveClick(Sender: TObject);
      procedure FormClose(Sender: TObject; var Action: TCloseAction);
    private
     NewBlk:Boolean;
     Blk:TBlkZamek;
    public
     CanMonitor:Boolean;
     OpenIndex:Integer;
     procedure OpenForm(BlokIndex:Integer);
     procedure NewBlkOpenForm;
     procedure NormalOpenForm;
     procedure HlavniOpenForm;
     procedure NewBlkCreate;
    end;
  
  
negative.code:  begin
    if (E_Nazev.Text = '') then
     begin
      Application.MessageBox('Vyplňte název bloku!', 'Nelze uložit data', MB_OK OR MB_ICONWARNING);
      Exit();
     end;
    if (Blky.IsBlok(SE_ID.Value,OpenIndex)) then
     begin
      Application.MessageBox('ID již bylo definováno na jiném bloku!', 'Nelze uložit data', MB_OK OR MB_ICONWARNING);
      Exit();
     end;
  
    glob.name := E_Nazev.Text;
    glob.id := SE_ID.Value;
    glob.typ := _BLK_ZAMEK;
  
    if (NewBlk) then
     begin
      glob.poznamka := '';
      try
        Blk := Blky.Add(_BLK_ZAMEK, glob) as TBlkZamek;
      except
        on E:Exception do
         begin
  