[RolexOsmiy]

Хочу сделать одним if'ом

Код:

if InterSectRect(Overlay, Ball.BoundsRect, Platforms.BoundsRect) then
begin
  VelX:= -VelX;
  VelY:= -VelY;
end;

procedure TForm2.Timer2Timer(Sender: TObject);
  begin
    for i := 1 to 5 do
    FindComponent ('Image'+ inttostr(i)) := Platforms;
  end;

Админ: Пользуемся тегами при оформлении кода!

Но из за незнания у меня не чего не пашет. Нужна помощь!