1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure ZeichneRaster(MausX, MausY : integer);
var
  xloop, yloop : integer;
begin
  with Form1.Image1.Canvas do begin
    pen.Color := clBlack;
    brush.Style := bsClear;
    for yloop := 0 to cliprect.Bottom div RasterGroesse do
      for xloop := 0 to cliprect.Right div RasterGroesse do begin
        if (xloop = mausx) and (yloop = mausy) then pen.color := clRed
          else pen.color := clBlack;
        Rectangle(xloop*RasterGroesse, yloop*RasterGroesse, (xloop+1)*RasterGroesse,(yloop+1)*RasterGroesse);
      end;
  end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Repaint;
  ZeichneRaster(x div RasterGroesse,y div RasterGroesse);
end;