Change Color in Grid

VCL TMS VCL UI Pack
2
Hello,

it does not seem to go to change the color of the cell when you click into it. At least I can not find a solution that works.
My previous path which does not provide the desired result:

procedure TForm1.GridGetCellColor(Sender: TObject; ARow, ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
begin
  if ARow > 0 then
  begin
    if Grid.IsSelected(ACol,ARow) then
      ABrush.Color := clYellow
    else
      ABrush.Color := clWhite;
  end;
end;

Maybe someone knows a way

regards
Thoren