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 TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
Var s1,s2:string;
    i:integer;
begin
  //nicht vergessen, Style der listbox auf ownerdrawfixed stellen
  with (Control as Tlistbox) do
    begin
      //den string "splitten"
      i:=pos(' - ',Items[Index]);
      if i=0 then s1:=Items[Index]    //kein trennzeichen gefunden, s1=item
             else s1:=copy(Items[Index],1,i);
      s2:=copy(Items[Index],i+3,20);

      //Zellhintergrund, wenn markiert, andere Farbe
      if odselected in State then Canvas.brush.color:=clblue
                             else Canvas.brush.color:=clwhite;
      Canvas.Fillrect(rect);

      //ersten string ausgeben
      Canvas.Font.color:=clblack;
      Canvas.textout(Rect.Left+ 2, Rect.Top, s1);

      if i>0 then
        begin
          //zweiten string rot ausgeben rechtsbündig ausgeben
          Canvas.Font.color:=clred;
          Canvas.textout(Rect.right- 50, Rect.Top, s2);
        end;

    end;
end;					

1:
2:
3:

//Zellhintergrund, wenn markiert, andere Farbe 
      if odselected in State then Canvas.brush.color:=clblue 
                             else Canvas.brush.color:=clwhite