СРОЧНО! ПОСМОТРИТЕ И ПРОВЕРЬТЕ!

[yakimchukav]

круг - это мячик, который постоянно прямолинейно двигается, при столкновении с границами формы или лаптой меняет свое на-правление на противоположное.

procedure TForm1.Timer1Timer(Sender: TObject);
var
x,y:integer;
begin
//Координаты шара
x:=1;
y:=1;
//Движение шара
ball.Left:=ball.Left+x;
ball.Top:=ball.Top+y;
//Проверка столкновения с формой
if ball.Left=form1.left then ball.Left:=ball.left+x;
if ball.Left+10=form1.left+form1.width then ball.Left:=ball.left-x;

if ball.top=form1.top then ball.top:=ball.left+x;
if ball.top+10=form1.top+form1.width then ball.top:=ball.top-x;
//Проверка столкновения с ракеткой
if ball.Left=raketka.left then ball.Left:=ball.left-x;
if ball.Left+10=raketka.Left+raketka.l eft+form1.width then ball.left:=ball.left-y;

if ball.top=raketka.top then ball.top:=ball.top-x;
if ball.top+10=raketka.top+raketka.top +raketka.width then ball.top:=ball.top-y;
end;

[TwiX]

Не приходило в голову, почему никто так и не проверил лёгкую задачу и репутация всё уменьшается???
Может стоит переписать название темы?

[Квэнди]

Название темы. закрыто.