type
  TBall = class(TImageSprite)
  private
    richtungX: Integer;
    richtungY: Integer;
  public
    procedure erzeugen;
    procedure DoMove(MoveCount: Integer); override;
    procedure DoCollision(Sprite: TSprite;
                          var Done: Boolean); override;
end;

....

procedure TBall.erzeugen;
begin
  // Ball wird erzeugt (X,Y,Z und Image zuweisen)
end;

procedure TBall.DoMove(MoveCount: Integer);
begin
  // Ball bewegen
  Collision;
end;

procedure TBall.DoCollision(Sprite: TSprite; var done: Boolean);
begin
  if (Sprite is TEnemy) then ShowMessage('bumm');
end;