Закрасить ячейку в Stringgrid по клику

procedure TForm1.strngrd1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
 CanSelect:=true;
 if strngrd1.Cells [Acol, Arow] = '-1' then begin
   form1.strngrd1.Canvas.Brush.Color:=clBlack;
 end
 else  form1.strngrd1.Canvas.Brush.Color:=clred;
 form1.strngrd1.Canvas.FillRect(strngrd1.CellRect(ACol, ARow));
end;

procedure TForm1.strngrd1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
X: Real;
i,j:integer;
begin
   if (gdFocused in State) and (strngrd1.Cells [Acol, Arow] = '-1') then
   StrnGrd1.Canvas.Brush.Color := clBlack
   else if  (gdFocused in State) and (strngrd1.Cells [Acol, Arow] = '0') then
   strngrd1.Canvas.Brush.Color := clRed;
   strngrd1.Canvas.FillRect(Rect);
end;

if (gdFocused in State)

//Обработчик, который вызывается при щелчке мышью в области таблицы.
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  Sg : TStringGrid;
  Col, Row : Integer;
begin
  Sg := Sender as TStringGrid;
  //Определяем координаты ячейки, на которой произошёл щелчок мыши.
  Sg.MouseToCell(X, Y, Col, Row);
  //Если произошёл щелчок левой кнопкой мыши - устанавливаем флаг.
  if Button = mbLeft then begin
    //Под видом указателя на объект, который связан с ячейкой, записываем
    //значение флага. Значение флага, равное 1, означает, что цвет ячейки изменён.
    Sg.Rows[Row].Objects[Col] := TObject(1); //Или: := Pointer(1);
  //Если произошёл щелчок правой кнопкой мыши - сбрасываем флаг.
  end else if Button = mbRight then begin
    Sg.Rows[Row].Objects[Col] := TObject(0); //Или: := Pointer(0);
  end;
end;

//Обработчик, который вызывается при перерисовке ячейки.
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
type
  TSave = record
    FontColor : TColor;
    FontStyle : TFontStyles;
    BrColor : TColor;
  end;
var
  Sg : TStringGrid;
  Save : TSave;
  Flag : Integer;
begin
  Sg := Sender as TStringGrid;
  //Читаем значение флага, которое записано под видом указателя на объект.
  Flag := Integer(Sg.Rows[ARow].Objects[ACol]);
  //Если флаг не равен 1 - выходим.
  if Flag <> 1 then Exit;
  //В противном случае, изменяем цвет ячейки.
  with Sg.Canvas, Save do begin
    //Запоминаем параметры шрифта и кисти.
    FontColor := Font.Color;
    FontStyle := Font.Style;
    BrColor := Brush.Color;
 
    //Устанавливаем новые парметры.
 
    //Цвет шрифта - белый.
    Font.Color := RGB(255, 255, 255);
    //Стиль шрифта - жирный.
    Font.Style := Font.Style + [fsBold];
    //Цвет кисти - коричневый.
    Brush.Color := RGB(180, 90, 30);
 
    //Прорисовываем ячейку.
 
    //Заливаем квадрат ячейки цветом кисти.
    FillRect(Rect);
    //Прорисовываем в ячейке текст. Здесь +2 - так мы задаём ширину полей в ячейке.
    TextOut(Rect.Left + 2, Rect.Top + 2, Sg.Cells[ACol, ARow]);
 
    //Восстанавливаем прежние параметры канвы.
    Font.Color := FontColor;
    Font.Style := FontStyle;
    Brush.Color := BrColor;
  end;
end;