Problem beim zeichnen in die ComboBox

[hugo1990]

Delphi-Quellcode:

procedure TForm1.FarbenBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
with FarbenBox1 do
  begin
  Canvas.Fillrect(rect);
  Canvas.Brush.Color:=Farben[Index].Color;
  Canvas.Brush.Style:=bsSolid;
  Canvas.Pen.Color:=clBlack;
  Canvas.Rectangle(Rect.Left+1,Rect.Top+1,ItemHeight-1,Rect.Bottom-1);
  Canvas.Brush.Style:=bsClear;
  Canvas.TextOut(Rect.Left+Rect.Bottom-Rect.Top+2,Rect.Top,Items[Index]);
  end;
end;

Also so zeichne ich in die Combobox, nur leider kann ich da nicht denn aktiven Eintrag extra zeichnen lassen.