ich glaube du hast nur 1 () vergessen! in der ersten Zeile
Delphi-Quellcode:
If (sh_Ball.left <= (spieler1.Left+spieler1.Width)) and //<-Hier
((sh_Ball.Top+sh_Ball.Height)>= spieler1.Top) and
(sh_Ball.Top <= (spieler1.Top+spieler1.Height)) then
Leftstep:=Leftstep*(-1);