[TVAlueListEditor] как убрать фокус с ячеек?

[unbanned]

использую TValueListEditor как табличку для представления информации... цвет теста в некоторых ячейках отличается... фокус по умолчанию на Cells[0,0] вот в этом и проблема, т.к. пока она выделена цвет её либо цвет текста в ней поменять не получается.

пробовал делать вот так...

procedure TForm1.lst1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  ValueList: TValueListEditor;
  Can: TCanvas;
  text: string;
begin
  ValueList := Sender as TValueListEditor;
  Can := ValueList.Canvas;
  Can.Font := ValueList.Font;

  if ACol >= ValueList.FixedCols then
    Can.Brush.Color := ValueList.Color
  else
    Can.Brush.Color := ValueList.FixedColor;

  if ActiveControl = Sender then
    if (gdSelected in State) then
    begin
      Can.Font.Color := clHighlightText;
      Can.Brush.Color := clHighlight;
    end;

  Can.FillRect(Rect);
  Can.TextOut(Rect.Left + 2, Rect.Top + 2, ValueList.Cells[ACol, ARow]);
end;

но ничего не выходит... подскажите, как быть?

[NewLamer&Programer]

ActiveControl:= {...};