TComboBox DrawItem blinkender Cursor

[handson]

Hallo!

Ich habe ich ein komisches Phänomen. Ich will einige Einträge in der TComboBox andersfarbig darstellen. Dafür habe ich Style auf csOwnerDrawVariable gesetzt und bei OnDrawtItem folgenden
Code eingebaut:

Code:

procedure TFormArtikelCopy.WGDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
Var
  aCB : TComboBox;

begin
  If (Control IS TComboBox) Then
  Begin
    aCB := TComboBox(Control);
    If TWGStatus(aCB.Items.Objects[Index]).Inaktiv Then
    Begin
      aCB.Canvas.Font.Color := clSilver;
      aCB.Canvas.Font.Style := [fsItalic];
    End Else
    Begin
      aCB.Canvas.Font.Color := clBlack;
      aCB.Canvas.Font.Style := [];
    End;
    aCB.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, aCB.Items[Index]);
  End;
end;

Das funktioniert alles super gut. Allerdings habe ich in diesem Feld keinen blinkenden
Cursor mehr. Setzte ich den Style wieder zurück, ist er wieder da.
Wie bekomme ich den mit gesetzter Style-Variable wieder hin?

Danke für Tipps schon mal im Voraus!

Stephan