ComboBox.Height Как изменить?

[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, без тоже не работает

[xexxex]

Непонятна проблема.
Пример.

procedure TForm1.FormCreate(Sender: TObject);
var J: Integer;
begin
  ComboBox1.Style := csOwnerDrawFixed;
     // и не надо тыщу раз вызывать SendMessage(Handle, CB_SETITEMHEIGHT, j-1, 60);
     // делаеш просто
  ComboBox1.ItemHeight := Image1.Picture.Height;
  ComboBox1.DropDownCount := 3; ////!!!!!!!!!!!!!!!!!!!!!
  for J := 0 to 100 do
    ComboBox1.Items.Add(IntToStr(J));
  ComboBox1.ItemIndex := 0;
end;

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with TComboBox(Control), Canvas do
    Draw(Rect.Left, Rect.Top, Image1.Picture.Graphic);
end;