abs funktioniert nicht

[hansdieter11]

Es wird nie mehr was glaube ich

Delphi-Quellcode:

procedure TForm1.TiRaumschiffTimer(Sender: TObject);
var r,i: integer;
begin
  FOR i:=1 TO nummer DO
  begin
  FOR r:=1 TO number DO
    begin
     IF Raumschiff[r] <> nil THEN
       begin
         Raumschiff[r].GoRight;
         ShRaumschiff[r].Left := Raumschiff[r].xCoord;

         IF Raumschiff[r].xCoord > 700 THEN
           begin
             Raumschiff[r].xCoord := -50;
             ShRaumschiff[r].Left := Raumschiff[r].xCoord;
           end;

         If (abs(Raumschiff[r].yCoord-Kugel[i].yCoord)<1) and
            (abs(Raumschiff[r].xCoord-Kugel[i].xCoord)<1) then
           begin
             Raumschiff[r].Free;
             Raumschiff[r] := nil;
             Abgeschossen := Abgeschossen+1;
           end;
       end;
     end;

     IF Kugel[i] <> nil THEN
       begin
         Kugel[i].GoUp;
         ShKugel[i].Top := Kugel[i].yCoord;
       end;
     end;

  LaRaumschiffe.caption := inttostr(Abgeschossen);

Stürzt wieder sofort ab. Habe jetzt alles so geändert, wie vorgeschlagen.