DrawGrid Inhalt verschwindet beim Auswählen einer Zelle/Reihe

[MeisterLampe]

Ich benutze folgenden Code um zwei Textzeilen mit unterschiedlicher Farbe und unterschiedlichem Einruck in ein DrawGrid zu zeichnen.

Delphi-Quellcode:

procedure TForm1.DrawGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
Var
  Rect1, Rect2: TRect;
  S: String;
begin
  Rect1.Left := Rect.Left + 5;
  Rect1.Top := Rect.Top;
  Rect1.Height := Rect.Height Div 2;
  Rect2.Left := Rect.Left + 25;
  Rect2.Top := Rect.Top + (Rect.Height Div 2);
  Rect2.Height := Rect.Height DIV 2;

  S := 'Text 1';
  DrawGrid.Canvas.Font.Color := clBlack;
  DrawGrid.Canvas.TextRect(Rect1, S, [tfVerticalCenter, tfSingleLine]);

  S := 'Text 2';
  DrawGrid.Canvas.Font.Color := $006B6B6B;
  DrawGrid.Canvas.TextRect(Rect2, S, [tfVerticalCenter, tfSingleLine]);

Das funktioniert soweit auch super. Nur wenn ich nun eine Zelle bzw die ganze Reihe anklicke und dieser blaue SelektierRahmen erscheint, verschwindet die untere Textzeile

Woran liegt das?
Zur Verdeutlichung hab ich ein Foto angehängt.

Danke schonmal.
Liebe Grüße.