anchor.diff:      procedure FormClose(Sender: TObject; var Action: TCloseAction);
       procedure SE_moduleExit(Sender: TObject);
     private
  -   NewBlk:Boolean;
  -   Blk:TBlkIR;
  +   NewBlk: Boolean;
  +   Blk: TBlkIR;
  +
     public
  -   CanMonitor:Boolean;
      OpenIndex:Integer;
  -   procedure OpenForm(BlokIndex:Integer);
  -   procedure NewBlkOpenForm;
  -   procedure NormalOpenForm;
  -   procedure HlavniOpenForm;
  -   procedure NewBlkCreate;
  +
  +    procedure OpenForm(BlokIndex:Integer);
  +    procedure NewBlkOpenForm();
  +    procedure NormalOpenForm();
  +    procedure HlavniOpenForm();
  +    procedure NewBlkCreate();
     end;
   
   var
  
positive.code: 
  procedure TF_BlkIR.NewBlkOpenForm;
   begin
    E_Nazev.Text          := '';
    SE_ID.Value           := Blky.GetBlkID(Blky.count-1)+1;
    Self.SE_module.Value  := 1;
    Self.SE_Port.Value    := 0;
    Self.SE_moduleExit(Self);
  
    F_BlkIR.Caption       := 'Editovat data nového bloku';
    F_BlkIR.ActiveControl := E_Nazev;
   end;
  
  
negative.code: 
    if (NewBlk) then
     begin
      NewBlkOpenForm();
     end else begin
      NormalOpenForm();
     end;
    F_BlkIR.ShowModal();
   end;
  
  procedure TF_BlkIR.SE_moduleExit(Sender: TObject);
  