[Страдалецъ]

Нафига эти выкрутасы с умножением?
Все было правильно, за исключением присвоения и скобок.

Код:

if (x <= 0) or (x >= 640) then dx := -dx;
if (y <= 0) or (y >=350) then dy := -dy;