Problem mit Multiplikation

[Pfusch]

Naja Quellcode wird jetzt auch nicht viel ändern weil Ball.YSpeed an einem anderem Punkt nur auf -1 gesetzt wird. Wenn ich z.b. folgendes if ausführe wird Ball.YSpeed auf 1 gesetzt weil es ja -1 ist. Diese Anweisung funktioniert ohne Probleme. Warum aber eine simple Multiplikation mit -1 nicht funktioniert?

if Ball.YSpeed = -1 then
begin
Ball.YSpeed := 1;
end;

fYSpeed ist als single deklariert, falls es vlt. daran liegt:

fYSpeed : Single;

Im Endeffekt will ich nur einen Vorzeichenumkehr machen, die halt mit *-1. Habe nun auch schon andere Varianten ausprobiert:

Ball.YSpeed := 0-Ball.YSpeed;

funktioniert auch nicht und YSpeed ist immer noch negativ.