StringGrid OnDrawCell, eigener Inhalt wird überschrieben, wenn Zelle selektiert

[alleinherrscher]

Hiho, ich nutze die Standard Windows VCL. Im OnDrawCell möchte ich gerne in bestimmten Fällen den Inhalt einer Zelle ändern. (Es soll später ein kleines Bild in die Zelle, der Zelltext soll eingerückt werden).

Das Einrücken übernehme ich nun testweise im OnDrawCell, was auch klappt, bis die entsprechende Zelle selektiert ist:

Delphi-Quellcode:

   if (arow>0) and (acol=1) then
   begin
     if pos('TICKETNUMBER',orderby)>0 then
     begin
       if (DL[arow-1].ticketNumber<>-1) and (ExitsSameTicketNumberBefore(arow-1, DL[arow-1].ticketNumber)) then
          begin
            str:='>>'+sgDataList.Cells[ACol, ARow];
            sgDataList.Canvas.TextRect(Rect,Rect.Left + 2,Rect.top+((Rect.Bottom-Rect.top)-sgDataList.Canvas.TextHeight(str)) div 2,str);
          end;
     end;

Ergebnis: Siehe Anhang: Links: Zelle nicht selektiert, rechts: Zelle selektiert.

Was (edit) kann (/edit) ich machen, außer komplett auf ein DrawGrid (edit) zu wechseln (/edit)?

Danke und besten Gruß,
Michael