anchor.diff:  
     if (NewBlk) then
      begin
  -    NewBlkOpenForm;
  +    NewBlkOpenForm();
      end else begin
  -    NormalOpenForm;
  +    NormalOpenForm();
      end;
  -  F_BlkIR.ShowModal;
  +  F_BlkIR.ShowModal();
    end;
   
   procedure TF_BlkIR.SE_moduleExit(Sender: TObject);
  
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: 
  procedure TF_BlkIR.B_StornoClick(Sender: TObject);
   begin
    F_BlkIR.Close();
   end;
  
  procedure TF_BlkIR.B_SaveClick(Sender: TObject);
  