VirtualStringTree Item selektieren Problem beim Zeichnen

[RandomDD]

Kenne mich leider auch nicht so gut damit aus. Aber OnClick kann man dafür nicht benutzen soweit ich weiß.
ich dachte hiermit funktioniert es, tut es aber nicht.

Delphi-Quellcode:

procedure TForm1.VSTBeforeCellPaint(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
 Column: TColumnIndex; CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
begin
 // Variante 1 - funktioniert nicht
 // if TVirtualStringTree(Sender).Selected[Node] then
 // begin
 // TargetCanvas.Brush.Color := TVirtualStringTree(Sender).Colors.FocusedSelectionColor;
 // TargetCanvas.FillRect(CellRect);
 // end;

 // Variante 2 - funktioniert nicht
 // if TVirtualStringTree(Sender).FocusedNode = Node then // - FigVam
 // begin
 // TVirtualStringTree(Sender).Selected[Node] := True;
 // TargetCanvas.Brush.Color := $00FF0000;
 // TargetCanvas.FillRect(CellRect);
 // end;
end;