Проблема с выбором цвета ячейки StringGrid

[Nester]

На форме StringGrid
Отрисовка ячеек пользовательская.
Задача состоит в том что бы в ячейке рисовать прямоугольник нужного мне цвета.
Выбор цвета осуществляется по клику на этой ячейке (ColorDialog).
Всё работает как нужно кроме случая когда выбран чёрный цвет.
Выбор этого цвета игнорируется.

 //Пользовательская отрисовка ячеек StringGrid
 Procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);
  Var Grid: TStringGrid;
      CellRect: TRect;
      BrushColor: TColor;
  Begin
   Grid := Sender as TStringGrid;
   CellRect := Rect;
   Inc(CellRect.Left);   // Небольшие отступы для красоты
   Inc(CellRect.Top);
   Dec(CellRect.Right);
   Dec(CellRect.Bottom);

   // Получение цвета ячейки из Tags (по умолчанию clWhite)
   If Grid.Objects[ACol, ARow] <> nil Then
    BrushColor := TColor(Grid.Objects[ACol, ARow])
   Else
    BrushColor := clWhite;

  // Рисуем прямоугольник
  With Grid.Canvas Do
   Begin
    Brush.Color := BrushColor;
    FillRect(CellRect);
   End;

 End;

 //Обработка пользовательских кликов мышью на StringGrid
 Procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  Var Grid: TStringGrid;
      ACol, ARow: Integer;
      NewColor: TColor;
  Begin
   Grid := Sender as TStringGrid;
   Grid.MouseToCell(X, Y, ACol, ARow);

   If (ACol >= 0) and (ARow >= 0) Then
    Begin
     // Открываем диалог выбора цвета
     If ColorDialog1.Execute Then
      Begin
       NewColor := ColorDialog1.Color;
       // Сохраняем цвет в Objects
       Grid.Objects[ACol, ARow] := Pointer(NewColor);
       // Перерисовываем сетку
       Grid.Invalidate;
      End;
    End;
  End;

Вероятно проблема тут при NewColor=0

 Grid.Objects[ACol, ARow] := Pointer(NewColor);

Color 0 записывается как nil

как победить?

[cllc]

Ксорить знаковый бит:

Grid.Objects[ACol, ARow] := Pointer(Cardinal(NewColor) xor $80000000);

BrushColor := TColor(Cardinal(Grid.Objects[ACol, ARow]) xor $80000000)

[Nester]

Сообщение от cllc

Ксорить знаковый бит:

Grid.Objects[ACol, ARow] := Pointer(Cardinal(NewColor) xor $80000000);

BrushColor := TColor(Cardinal(Grid.Objects[ACol, ARow]) xor $80000000)

Жму руку за такое решение! Проблема решена!!!

[phomm]

Почему бы просто не убрать условие:

If Grid.Objects[ACol, ARow] <> nil Then
    BrushColor := TColor(Grid.Objects[ACol, ARow]) // 2 строка
   Else
    BrushColor := clWhite;

здесь срабатывает проверка на нил и по ветке элс ставится белый цвет, вот и оставить только 2ю строку из всего этого кода

EDIT: все клетки на старте тогда будут черные, я полагаю? тогда для черного или для всех цветов вообще действительно можно использовать старший байт Int32, поскольку в Tag хранится 4хбайтное значение Int32 а TColor занимает 3 байта (RGB), но, по идее, не обязательно использовать XOR (хотя удобно в целом), а можно любую операцию, и SHL/SHR и банально +/- 10Е9,
или вообще просто сделать вот такой код (который использует идею с заменой кода выше только на строку 2)

if NewColor = clBlack then NewColor := TColor(1); // на глаз ровно такой же черный
Grid.Objects[ACol, ARow] := Pointer(NewColor);

[Nester]

Немного подумав сделал так:

Grid.Objects [ ACol, ARow ] := Pointer( Cardinal ( NewColor+1 ) );

BrushColor := TColor ( Cardinal ( Grid.Objects [ ACol, ARow ] ) ) -1;