abs funktioniert nicht

[hansdieter11]

Hallo zusammen,

habe ein Programm geschrieben, in dem Kugeln Raumschiffe treffen sollen.

Das habe ich dann mit abs(... - ... < 1) gelöst, doch das Programm stürzt sofort ab.

Danke schonmal für die Mithilfe.

Grüße
Timo

Delphi-Quellcode:

procedure TForm1.TiRaumschiffTimer(Sender: TObject);
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].xCoord-Kugel[i].xCoord)<1) and
            (abs(Raumschiff[r].yCoord-Kugel[i].yCoord)<1) then
        begin
          Raumschiff[r].Destroy;
          Abgeschossen := Abgeschossen+1;
        end;

      end;
     end;

  LaRaumschiffe.caption := inttostr(Abgeschossen);
end;