Проблема реализации отскока шарика.

[g4mer]

Здравствуйте, вообщем пишу задачу моделирующую движение шарика в прямоугольнике, посреди прямоугольника имеется стена произвольного размера. Прошу помочь с реализацией отскока именно от этой стены: отскоки от краев формы написал, работают на ура, а вот c этой стенкой проблемы, мячик иногда не под тем углом отлетает от стены, или вообще пролетает сквозь неё.
Алгоритм следующий, в момент удара о стенки просчитываются скорости в данный момент времени и через их отношение находится угол направления скорости в данный момент.
Условия на отскок от краев формы:

if x<=r then
begin
x0:=r;
x:=x0;
y0:=y;
Vx:=round(V*cos(a*pi/180));
Vy:=round(V*sin(a*pi/180)-g*t);
a:=-round(arctan(vy/vx)*180/Pi);
V:=round(sqrt(sqr(Vx)+sqr(Vy)));
t:=0;
Vx:=V*cos(a*pi/180);
Vy:=V*sin(a*pi/180);
end;
if x>=clientwidth-r then
begin
x0:=clientwidth-r;
x:=x0;
y0:=y;
Vx:=round(V*cos(a*pi/180));
Vy:=round(V*sin(a*pi/180)-g*t);
a:=180-round(arctan(vy/vx)*180/Pi);
V:=round(sqrt(sqr(Vx)+sqr(Vy)));
Vx:=V*cos(a*pi/180);
Vy:=V*sin(a*pi/180);
t:=0;
end;
if y<=r then
begin
x0:=x;
y0:=r;
y:=y0;
Vx:=round(V*cos(a*pi/180));
Vy:=round(V*sin(a*pi/180)-g*t);
if round(arctan(vy/vx)*180/Pi)>0 then a:=-round(arctan(vy/vx)*180/Pi)
else a:=180-round(arctan(vy/vx)*180/Pi);
V:=round(sqrt(sqr(Vx)+sqr(Vy)));
Vx:=V*cos(a*pi/180);
Vy:=V*sin(a*pi/180);
t:=0;
end;

Пробовал для стенки вот такие ограничения:

if (x>=round(clientwidth/2)-5-r)and(y>round(clientheight*0.5)-r)and(x<round(clientwidth/2)+r) then begin
x0:=round(clientwidth/2)-r-5;
x:=x0;
y0:=y;
Vx:=round(V*cos(a*pi/180));
Vy:=round(V*sin(a*pi/180)-g*t);
a:=180-round(arctan(vy/vx)*180/Pi);
V:=round(sqrt(sqr(Vx)+sqr(Vy)));
t:=0;

end;
if (x<=round(clientwidth/2)+5+r)and (x>=round(clientwidth/2)-r)and(y>round(clientheight*0.33)-r) then begin
x0:=round(clientwidth/2)+r;
x:=x0;
y0:=y;
V0x:=round(V*cos(a*pi/180));
V0y:=round(V*sin(a*pi/180)-g*t);
a:=-round(arctan(vy/vx)*180/Pi);
V0:=round(sqrt(sqr(Vx)+sqr(Vy)));
t:=0;

Но как писал выше, с такими ограничениями работает не корректно, может кто посоветовать что? Или хотя бы намекнуть....