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 TF_BlkZamek.B_StornoClick(Sender: TObject);
   begin
    Self.Close;
   end;
  
  procedure TF_BlkZamek.B_SaveClick(Sender: TObject);
  
negative.code: 
  procedure TF_BlkZamek.FormClose(Sender: TObject; var Action: TCloseAction);
   begin
    NewBlk := false;
    OpenIndex := -1;
    BlokyTableData.UpdateTable;
   end;
  
  