[PONG] Kollision mit Schläger funktioniert nicht

[flomei]

Hallo!
Wahrscheinlich ist es mal wieder ein ganz dämlicher Fehler in meinem grausamen Code der mir das Weiterarbeiten erschwert, deshalb würde ich mich sehr freuen, wenn mal einer gucken könnte woran es liegt.

DANKE!

Delphi-Quellcode:

// Ball bewegen
procedure TMainForm.TimerMoveBallTimer(Sender: TObject);
  begin
    ShpBall.Left := ShpBall.Left  + x_step;
    ShpBall.Top  := ShpBall.Top   + y_step;

    begin
      if
        (ShpBall.Left > Screen.Width - ShpBall.Width - 1) or (ShpBall.Left < 1)
      then
          x_step := x_step * -1;
      if
        (ShpBall.Top > Screen.Height - ShpBall.Height - 1) or (ShpBall.Top < 1)
      then
        y_step := y_step * -1;
    end;
    begin
      if
        (((ShpBall.Left = 110) and ((ShpBall.Top >= PnlLeftPaddle.Top) and (ShpBall.Top <= PnlLeftPaddle.Top + 100)))
          OR
         ((ShpBall.Left = Screen.Width - 110) and ((ShpBall.Top >= PnlRightPaddle.Top) and (ShpBall.Top <= PnlRightPaddle.Top + 100))))
      then
        begin
          x_step  := x_step * -1;
          y_step  := y_step * -1;
        end
    end
  end;

MfG Florian