var i,j, GridSize: Integer;

for i := 0 to Image.Width
if i mod GridSize = 0 then
for j := 0 to Image.Height
if j mod GridSize = 0 then
Image.Canvas.Rectangle(i,j,i+GridSize-1,j+GridSize-1);