[Assistant]

вот так отлично закрашивает весь грид:

Код:

var
  ARect: TRect;
  ACanvas: TCanvas;
begin
  ARect.Left := 0;
  ARect.Top := 0;
  ARect.Right := StringGrid1.Width;
  ARect.Bottom := StringGrid1.Height;
  ACanvas := TCanvas.Create;
  ACanvas.Handle := StringGrid1.Canvas.Handle;
  ACanvas.Rectangle(ARect);
  ACanvas.Free;
end;