abs funktioniert nicht

[hansdieter11]

Delphi-Quellcode:

procedure TForm1.TiRaumschiffTimer(Sender: TObject);
var r,i: integer;
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;
       end;
     end;


  FOR i:=1 TO nummer DO
    begin
      IF Kugel[i] <> nil THEN
        begin
          Kugel[i].GoUp;
          ShKugel[i].Top := Kugel[i].yCoord;
        end;
    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;

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

[Warnung] Unit1.pas(153): FOR-Schleifenvariable 'r' kann nach Durchlauf undefiniert sein

[Warnung] Unit1.pas(153): FOR-Schleifenvariable 'i' kann nach Durchlauf undefiniert sein

Funktioniert leider nicht.
Oder was ist mein Fehler ?