[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;

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

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

[Страдалецъ]

И что это за поток сознания? Функция которая ничего не делает, событие которое тоже непонятно зачем ищет компоненты. Или вы считаете, что если накидать много кусков кода в одну кучу, то по теории вероятности они должны когда-то превратится в Форточки 1.0 ?

[Bargest]

если накидать много кусков кода в одну кучу, то по теории вероятности они должны когда-то превратится в Форточки 1.0

А то. Есть же теорема о бесконечных обезьянах.

[Kailon]

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

Вот именно, из-за незнания рождаются всякие непонятные куски кода! Какая стоит задача?