Delphi：StringGridのセルの色がうまく付かない！

Question

##質問内容
StringGridのセルの色を変更しようと思い、下記のコードを実行しているのですが写真のようにセルの左端のところが若干切れてしまって、うまくセル全体に色が付きません。。
コード自体は間違ってないと思うのですが、なにか

procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
　//赤
  if (ACol = 1) and (ARow = 1) then
    begin
    StringGrid1.Canvas.Brush.Color := clRed;
    StringGrid1.Canvas.FillRect(Rect);
    end;
　//青
  if (ACol = 2) and (ARow = 1) then
    begin
    StringGrid1.Canvas.Brush.Color := clBlue;
    StringGrid1.Canvas.FillRect(Rect);
    end;
end;

アドバイスがあればお願いします。

##実行環境
Delphi 10.2

Answer 1

Rect.Left := Rect.Left - 4;

このコードを一番上に追加することで、全体に色を付けることができました。