Делаю арканоид

[Frody14]

проблема в том что мой мяч движется, но не отталкивается от стен..
не понимаю почему не срабатывает условие.. вот собственно процедура:

Procedure SharS();
var SSX,SSY: integer;
begin
ssx:=2;
ssy:=2;
sx:=sx-ssx;
sy:=sy-ssy;

If sx<=0 then
ssx:=-2;
If sy<=0 then
ssy:=-2;
If sx>=800 then
ssx:=2;
If sy<=800 then
ssy:=2

end;

вот исходник:

[DeKot]

Делаем следующее:
1. Переменные SSX и SSY переносим в глобальные

 SX,SY: integer;
  SSX,SSY: integer;

и задаем им начальные значения в

procedure TForm1.FormCreate(Sender: TObject);
begin
sx:=400;
sy:=700;
ssx:=-2;
ssy:=-2;
....

Сама процедура движения принимает вид

Procedure SharS();
begin

If sx<=0 then
ssx:=2;
If sy<=0 then
ssy:=2;
If sx>=800 then
ssx:=-2;
If sy>=800 then
ssy:=-2;

sx:=sx+ssx;
sy:=sy+ssy;

end;

И будет Ваш мячик бегать в "клеточке" [0,800] по X и [0,800] по Y.

[Frody14]

DeKot, работает, спасибо!