Andorra 2D Bewegung von Figuren

[garfield.92]

also

Delphi-Quellcode:

procedure Tcroco.SetLine;
begin
  //Bewegt die Figur in eine neue Ebene
  XSpeed := -XSpeed;
  if XSpeed > 0 then
    begin
      AnimStart := 0;
      AnimStop := 7;
      X := -96;
    end
  else
    begin
      AnimStart := 8;
      AnimStop := 15;
      X := Engine.SurfaceRect.Right+96;
    end;
//hier
[B]  Y := Random(Engine.SurfaceRect.Right-790);[/B] 
end;

immer wenn er in die letzte Zeile kommt, stürzt das programm ab. Wenn ich diese Zeile ausklammere ist es die oben drüber und wenn ich diese auch ausklammere tut sich gar nix.