unit xComboBox;

interface
  USES Classes, StdCtrls;

type
  tComboBox=class(StdCtrls.tComboBox)
    protected
      prRegistryKey:string;
    public
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;
  end;

implementation
  USES xRegistry, MCAD_MI1201_XForm;

constructor tComboBox.Create(AOwner: TComponent);
begin
  Inherited;
  if AOwner.InheritsFrom(tXForm) then begin
    try
    except end;
  end;
end;

destructor tComboBox.Destroy;
begin
  if Owner.InheritsFrom(tXForm) then begin
    try
    except end;
  end;
  Inherited;
end;

end.