1:
2:

if x > Bild.X and x < Bild.x + Imagelist.items[z].width
if y > Bild.X and y < Bild.x + Imagelist.items[z].width					

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

procedure TForm1.DXDrawMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  I:Integer;
begin
  SnakeMenu.S:=False;
  DXDraw.Cursor:=crDefault;

  if (isGameOver = True) and (isMenu = False) then
    DXDraw.Cursor:=crHandPoint
  else begin
    DXDraw.Cursor:=crDefault;
    SnakeMenu.MenuIndex:=-1;
    for i:=SnakeMenu.Items[SnakeMenu.Menu].MenuStart to SnakeMenu.Items[SnakeMenu.Menu].MenuItemsCount do begin
      if (y > SnakeMenu.Items[SnakeMenu.Menu].MenuItems[i-SnakeMenu.Items[SnakeMenu.Menu].MenuStart].Y) and (x > SnakeMenu.Items[SnakeMenu.Menu].MenuItems[i-SnakeMenu.Items[SnakeMenu.Menu].MenuStart].x) and (y < SnakeMenu.Items[SnakeMenu.Menu].MenuItems[i-SnakeMenu.Items[SnakeMenu.Menu].MenuStart].Y1) and (x < SnakeMenu.Items[SnakeMenu.Menu].MenuItems[i-SnakeMenu.Items[SnakeMenu.Menu].MenuStart].x1) then begin
         SnakeMenu.MenuIndex:=i-SnakeMenu.Items[SnakeMenu.Menu].MenuStart;
         SnakeMenu.S:=True;
         DXDraw.Cursor:=crHandPoint;
         Break;
      end;
    end;
  end;
end;