Изменение цвета ячейки StringGrid

type
  { RCellColor }
  RCellColor = class
  public
    Col, Row : Integer;
    BackColor : TColor;
    ForeColor : TColor;
 
    constructor Create(ACol, ARow : integer; ABColor, AFColor : TColor);
  end;
  TRecList = specialize TFPGList<RCellColor>;
 
  { TForm1 }
  // Тут класс формы, в private-части которого описан член lst : TRecList
  TForm1 = class(TForm)
  // ...
  private
    lst : TRecList
  end;

// конструктор класса:
{ RCellColor }
constructor RCellColor.Create(ACol, ARow: integer; ABColor, AFColor: TColor);
begin
  Col := ACol; Row := ARow; BackColor := ABColor; ForeColor := AFColor;
end;
 
// создание формы:
procedure TForm1.FormCreate(Sender: TObject);
begin
  // ...
  lst := TRecList.Create;
end;
 
// удаление формы:
procedure TForm1.FormDestroy(Sender: TObject);
begin
  // ...
  lst.Free;
end;
 
// Собственно, главное: OnPrepareCanvbas грида
procedure TForm1.StringGrid1PrepareCanvas(sender: TObject; aCol, aRow: Integer;
  aState: TGridDrawState);
var
  v : RCellColor;
  grid : TStringGrid;
begin
  for v in lst do
  begin
    if (ACol = v.Col) and (aRow = v.Row) then
    begin
      grid := sender as TStringGrid;
      grid.Canvas.Brush.Color := v.BackColor;
      grid.Canvas.Font.Color := v.ForeColor;
    end;
  end;
end;

// добавляем ячейке цвет:
procedure TForm1.Button3Click(Sender: TObject);
begin
  lst.Add(RCellColor.Create(3, 3, clBlack, clYellow));
  lst.Add(RCellColor.Create(2, 3, clBlue, clYellow));
  StringGrid1.Invalidate;;
end;
 
// убираем окраску одной из ячеек
procedure TForm1.Button4Click(Sender: TObject);
begin
  lst.Delete(1);
  StringGrid1.Invalidate;
end;