anchor.diff:  
   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;
  +  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.Caption := 'Editovat data nového bloku';
     F_BlkIR.ActiveControl := E_Nazev;
    end;
   
  
positive.code:     procedure FormClose(Sender: TObject; var Action: TCloseAction);
      procedure SE_moduleExit(Sender: TObject);
    private
     NewBlk:Boolean;
     Blk:TBlkIR;
    public
     CanMonitor:Boolean;
     OpenIndex:Integer;
     procedure OpenForm(BlokIndex:Integer);
     procedure NewBlkOpenForm;
     procedure NormalOpenForm;
     procedure HlavniOpenForm;
     procedure NewBlkCreate;
    end;
  
  var
  
negative.code: 
    if (NewBlk) then
     begin
      NewBlkOpenForm();
     end else begin
      NormalOpenForm();
     end;
    F_BlkIR.ShowModal();
   end;
  
  procedure TF_BlkIR.SE_moduleExit(Sender: TObject);
  