1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  myListBox := (Control as TRzListBox);
  sText := myLIstbox.items.strings[index];
  if myListBox.Items.Strings[Index] <> '' then begin
    with (Control as TRzListBox).Canvas do
    begin
      if Index = 2 then Brush.Color:=clMaroon
      else Brush.Color := clGray;
      FillRect(Rect);
      TextOut(Rect.Left,Rect.Top,sText);
    end;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  with TListBox(Control).Canvas do begin
    if odSelected in State then
    begin
      Font.Color := clWhite;
      Brush.Color := clMaroon;
    end
    else
    begin
      Font.Color := clMaroon;
      Brush.Color := clWhite;
    end;
    FillRect(Rect);
    TextOut(Rect.Left, Rect.Top, TListBox(Control).Items[Index]);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:

  //mit +2 sieht es besser aus
  TextOut(Rect.Left+2, Rect.Top+2, TListBox(Control).Items[Index]); 
  if odSelected in State then  
    begin  
    DrawFocusRect(Rect);
    if not (odFocused in State) then  
      DrawFocusRect(Rect);
    end;