1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

with Image1.Picture.Bitmap do
begin
  Width:=Image1.Width;
  Height:=Image1.Height;
  Canvas.FillRect(Canvas.ClipRect);
  Canvas.MoveTo(0, Height shr 1);
  Canvas.LineTo(Width, 10, Height shr 1);
  Canvas.MoveTo(Width shr 1, 0);
  Canvas.LineTo(Width shr 1, Height);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

funtion Gitter(wo:TCanvas; breit, hoch, stepx, stepY:Integer);
var x, y:Integer;
begin
  if ((stepX=0) or (stepY=0)) then Exit;
  // von links nach rechts
  wo.Pen.Style.=psDot;
  wo.Pen.Color:=clBlack;
  x:=0; y:=0;
  repeat
    wo.MoveTo(x, y);
    wo.LineTo(x, y+Hoch);
    Inc(x, stepX);
  until (x>breit);

  x:=0;
  // von oben nach unten
  repeat
    wo.MoveTo(x, y);
    wo.LineTo(x+breit, y);
    Inc(y, stepY);
  until(y>hoch);
end; // Gitter

...
  with Image1.Picture.Bitmap do 
  begin 
    Width:=Image1.Width; 
    Height:=Image1.Height; 
    Canvas.FillRect(Canvas.ClipRect); 
    Gitter(Canvas, Width, Height, 10, 10);
  end; 
...