Wie TComboBox Einträge je nach true/false Icons eintragen?

[madina]

Hallo,

ich habe ein TClientDataSet mit einem Feld bZeige (Boolean), je nach True/False will ich die TComoBox Einträge mit zwei verschiedene Icons (True=Hacken; False=Kreuz) aus diesem TClientDataSet darstellen.

Mit folgenden SourceCode kann ich dies leider teilweise darstellen:

Delphi-Quellcode:

  
procedure TForm1.TComoBoxDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  // Icon
  icBild: TIcon;
  icBild:= TIcon.create;

  TComoBox.Canvas.CopyMode:= cmDstInvert;
  TComoBox.Canvas.FillRect(Rect);
  // IconHolen
  if (TClientDataSet.bZeige) then TImageList.GetIcon(0, icBild)
  else TImageList.GetIcon(1, icBild)

  TComoBox.Canvas.Draw(Rect.Left, Rect.Top, icBild);                          // IconZeichnen
  TComoBox.Canvas.TextOut(Rect.Left+25, Rect.Top, TComoBox.Items.Strings[Index]);   // TextZeichnen 
end;

Meine Frage: wie kann ich alle TCombobox Einträge mit Hacken/Kreuz Icons je nach True/false darstellen?

mfg