Einzelne Wörter in TListBox fett zeichnen

[Dennis07]

Hallo,
Ich habe noch keine OnDrawItem-Prozedur für DIESE ListBox, da ich es im Grunde nur für den Highlight des jeweiligen Texts zwischen dem Zeichen #9 und : brauche.
Das ist die erste ListBox. Die zweite, die man auch auf dem Screenshot meines letzten Beitrags sehen kann, hat folgenden Code:

Delphi-Quellcode:

  TfmChat = class(TForm)
  public
    { Public-Deklarationen }
    NickName: String;                                //Anzeigename
  end;

{ ... }

procedure TfmChat.lbPeopleDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
{ Eigenen Namen fett anzeigen }
begin
  if Index = lbPeople.Items.IndexOf(NickName) then
  begin
    (Control as TListBox).Canvas.Font.Style := [fsBold];
  end else
  begin
    (Control as TListBox).Canvas.Font.Style := [];
  end;
  with Control as TListBox do
  begin
    Canvas.Pen.Color := lbPeople.Color;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left + 2,Rect.Top - 1,Items[Index]);
  end;
end;