[Mp3]

if Image1.Left<=10 then dx:=-dx;//or
if (Image1.Left+Image1.Width)>=Form1.Width then dx:=-dx;

if Image1.Top<=0 then dy:=-dy;//or

ты имел ввиду про это изменять 0???
я тут по 10 ставлю все равно не летит%)