Listbox-Item Farbe ändern

[Puke]

Ich habe versucht selektierte Item mit einer anderen Farbe zu markieren.
Allerdings funktioniert es nur bei der Hintergrundfarbe und nicht bei der Schriftfarbe.

Code:

procedure TForm1.InterpretListBoxDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
     LBox : TListbox;
begin
     if Control is TListbox
     then begin
        LBox := Control as TListbox;
        IF LBox.Items[Index]=Interpretlistindex
        then begin
            LBox.Canvas.Brush.Color := clwebdarkorange;
            LBox.Canvas.Font.Color  := clred;
        end
        else
            LBox.Canvas.Brush.Color := $505050;
            LBox.Canvas.Font.Color :=  $e0e0e0;

        LBox.Canvas.FillRect(Rect);
        LBox.Canvas.TextOut(Rect.Left, Rect.Top, LBox.Items[Index]);
     end;
end;

Ich danke für Hilfen