Añadir un método a un objeto TCombobox

[Sera]

Hola,

Vaya, ahora intentado reproducir el error va y funciona. Creo que estaría haciendo algo mal.
De todas formas quisiera aclarame con esto.

Aquí el código del .pas

Código Delphi [-]
type

    { TDispositivosCmd }

    TDispositivosCmd = class(TComboBox)
      public
      procedure CargarDispositivos;
    end;

  { TMainForm }

  TMainForm = class(TForm)
    CerrarBtn: TButton;
    DispositivosCmb: TDispositivosCmd;
    //DispositivosCmb: TComboBox;
    DispositivosLbl: TLabel;
    PerfilesLbl: TLabel;
    LeftPanel: TPanel;
    ListBox1: TListBox;
    RightPanel: TPanel;
    procedure CerrarBtnClick(Sender: TObject);
    procedure DispositivosCmbChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

Y este el del .flm

Código Delphi [-]
  object DispositivosCmb: TDispositivosCmd
    Left = 324
    Height = 23
    Top = 40
    Width = 325
    ItemHeight = 15
    OnChange = DispositivosCmbChange
    Style = csDropDownList
    TabOrder = 1
  end

La idea es personalizar el objeto para este Form, incluso con sus propias propiedades.
El caso es que preferiria personalizar el objeto directamente en lugar de usar una subclase.

Gracias