Надо так
var // Глобальные переменные
dX : Integer = 1;
dY : Integer = 1;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Shape1.Left := Shape1.Left + dX;
Shape1.Top := Shape1.Top + dY;
if (Shape1.Left <= 0) or (Shape1.Left + Shape1.Width >= Form1.Width) then
dX := -dX;
if (Shape1.Top <= 0) or (Shape1.Top + Shape1.Height >= Form1.Height) then
dY := -dY;
edn;
|