2D Array und MausPosition

[citybreaker]

Naja, also ich hab folgenden Code.

Delphi-Quellcode:

var map: Array[0..6,0..6] of Integer;
    x, y: Integer;
begin
  for x := 0 to 6 do
    for y := 0 to 6 do begin
      Map[x,y] := 0;
      if Map[x,y] = 0 then
        Image1.Canvas.Draw(x*32,y*32, Image2.Picture.Bitmap);
    end;
end;

Also hab ich quasi 32*32 Große kästen 6 Waagerecht und
6 Senkrecht. Nun möchte ich anzeigen auf welchem 32*32
Großen Kasten der Mauscursor sich befindet.

Also 1 Waagrecht, 2 Senkrecht