Dann mal so (wenn Image1 das Futter ist)
Delphi-Quellcode:
if
(Image1.Left > Image2.Left) and
(Image1.Left + Image1.Width < Image2.Left) and
(Image1.Top > Image2.Top) and
(Image1.Top + Image1.Height < Image2.Top)
then
EatFood;
Einfach mal mit diesem Gedanken weiterspielen
...
...