ComboBox.DropDownCount не увеличиваеца!

[ArtGrek]

не могу увеличить количество Items которые появляюца в ComboBox
Код:

  Effects[S]:=TsComboBox.Create(self);
  with Effects[S] do
  begin
    Parent:=Panels[S];
    Style:=csOwnerDrawFixed;
    Top:=65;
    Left:=190;
    Width:=70;
    for j:= 0 to 9 do
    begin
      SendMessage(Handle, CB_SETITEMHEIGHT, j-1, 60);
      Items.Add(IntToStr(j));
    end;
    ItemIndex:=0;
    DropDownCount := ?;
    BoundLabel.UseSkinColor := True;
    SkinData.SkinSection := 'COMBOBOX';
    OnDrawItem:=EffectsDrawItem;
    OnDropDown:=EffectsDropDown;
    OnSelect:=EffectsSelect;
  end;

procedure TForm1.EffectsDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
   TComboBox(Control).Canvas.StretchDraw(Rect,EffectsBmp[Index+1]);
end;

если ставлю 5 появляеца 1 Item, осталные значения 2, но не больше
кто знает в чем дело?
P.S. если кто заметил skins, без тоже не работает
WindowsXP, Delphi7

[Пепел Феникса]

версия Делфи и ОС?
( чтото здесь есть http://borland.xportal.ru/forum/prin...=18947&start=0)

[ArtGrek]

версия Делфи и ОС?

WindowsXP, Delphi7