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