Listbox Elemente unterschiedlich farbig darstellen

[Logan]

Damit wollte ich nur die Texte farbig machen:

Delphi-Quellcode:

PROCEDURE TFRM_Wochenuebersicht.LB_UserDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
BEGIN
  LB_User.Canvas.Font.Color := GetUserColor(LB_User.Items[Index]);
  DrawText(LB_User.Canvas.Handle, PChar(LB_User.Items[Index]), Length(LB_User.Items[Index]), Rect, DT_left+DT_Vcenter);
END;