1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TImageCombo.DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  OutText: String;
begin
  if Assigned(ImageList) then
  begin
    if ItemHeight <> ImageList.Height then ItemHeight := ImageList.Height;
    while Items.Count < ImageList.Count do Items.Add('');
  end;

  OutText := Items.Strings[Index];

  with Canvas do
  begin
    FillRect(Rect);

    if (FDrawBitmap) and Assigned(ImageList) then
    begin
      ImageList.Draw(Canvas, Rect.Left+2, Rect.Top, Index, True);
      Rect.Left := Rect.Left + ImageList.Width + 4;
      Rect.Bottom := Rect.Top + ImageList.Height + 14;
      Rect.Top := Rect.Top+FItemTop;
    end
    else
    begin
      FillRect(Rect);
      Rect.Left := 3;
    end;

    DrawText(Handle, PChar(OutText), Length(OutText), Rect, dt_WordBreak);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TImageCombo.DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  OutText: String;
begin
//Der folgende auskommentierte Code hat hier nichts verloren, der gehört in eine Prozedur SetImageList,
//und korrekterweise muss es dort dann FImageList lauten:
(*
  if Assigned(ImageList) then
  begin
    if ItemHeight <> ImageList.Height then ItemHeight := ImageList.Height;
    while Items.Count < ImageList.Count do Items.Add('');
  end;
*)

//Weiters fehlt hier "inherited", also schreibe ich es eben hin:
inherited;

//Der Rest ist ok!

//...

end;					

1:

if ItemHeight <> ImageList.Height then ItemHeight := ImageList.Height;