DelphiX + Collision

[citybreaker]

Hallo!

Heute stehe ich wieder mal vor einem Problem, welches bei anderen Spielen nie
hatte: Die DelphiX Kollision klappt nicht und ich weiß nicht woran es liegt.

Delphi-Quellcode:

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;

So wenn aber nun der Ball den Gegner berührt passiert nichts, obwohl beide
Sprites auf der selben Ebene (z := 2;) sind. Hat jemand eine Idee?