Brauche HILFE beim PingPong-Spiel!!!!

[konda]

ich würde statt nem eckigen ball einfach nen shape nemen.

Delphi-Quellcode:

//Bestimmung der x- und yposition
     xpos:= xpos+xspeed*vx;
     ypos:= ypos+yspeed*vy;
     //Beim Rand Anstoß
     if (xpos<0) then begin
       xspeed:= 1;
       xpos:= 0;
       punkte2:= punkte2+1;
     end;
     if (xpos+ball.width>=form1.ClientWidth) then begin
       xspeed:= -1;
       xpos:= form1.clientwidth-ball.width;
       punkte1:= punkte1+1;
     end;

     if (ypos<0) then begin
       yspeed:= 1;
       ypos:= 0;
     end;
     if (ypos+ball.height>=form1.Clientheight) then begin
       yspeed:= -1;
       ypos:= form1.clientheight-ball.height;
     end;
     //Bestimmung der Ballposition
     ball.top:= ypos;
     ball.left:= xpos;

das ist noch der code für die ballbewegung ohne schläger abrall.