Listbox Eintrag fett machen

[BenniP]

Ok, jetzt hab ich mal meine OnDraw-Procdure erweitert.

In Listbox2 stehen die Einträge [0, 2, 5] drin.
Die versuche ich mit einer For-Schleife auszulesen und dann mit dem Index zu vergleichen.

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var i, i2, iihnhalt: integer;
begin
 with (Control as TListBox).Canvas do
 begin
  for i:= 0 to listbox2.Count-1 do
  begin
   iihnhalt:= strtoint(listbox2.Items[i]);
   If Index = iihnhalt then
   begin
    FillRect(rect);
    Font.Style:= [fsbold];
    TextOut(Rect.Left+2, Rect.Top, listbox1.Items[index]);
   end
   else
   begin
    FillRect(rect);
    Font.Style:= [];
    TextOut(Rect.Left+2, Rect.Top, listbox1.Items[index]);
   end;
  end; //DO
 end; //with
end;

Allerdings, markiert er mir nur den fünften Eintrag, also den letzten der Listbbox, fett. Alle anderen sind normal.