El problema, está en que intentas cargas los items antes de que esté "configurado del todo".
Haciéndolo así, sí que funciona (debes añadir los items en "CreateWnd"):
Código Delphi
[-]implementation
{$R *.dfm}
{$R hispania.res}
type
TCustomComboHispania = class(TCustomComboBox)
private
FProvincias : boolean;
procedure SetProvincias(Value : boolean);
protected
procedure CreateWnd; override; public
constructor Create(AOwner : TComponent); override;
property Provincias : boolean read FProvincias write SetProvincias;
published
end;
constructor TCustomComboHispania.create(AOwner : TComponent);
begin
inherited Create(AOwner);
style := csDropDownList;
ShowHint := True;
Sorted := false;
end;
procedure TCustomComboHispania.CreateWnd;
begin
inherited CreateWnd;
Provincias := True; end;
procedure TCustomComboHispania.SetProvincias(Value : boolean);
var
R : TResourceStream;
begin
FProvincias := Value;
R := TResourceStream.create(hInstance, 'PROVINCIAS_ESPANNOLAS', RT_RCDATA);
try
items.loadFromStream(R);
finally
R.Free;
end;
end;
var
Combo : TCustomComboHispania;
procedure TForm1.Button1Click(Sender: TObject);
begin
Combo := TCustomComboHispania.create(form1);
Combo.left := 30;
Combo.Top := 30;
Combo.parent := self;
end;
end