Problem mit DelphiX PatternCount

[citybreaker]

Jap!

Delphi-Quellcode:

type
 TPlayer = class(TImageSprite)
 private
 public
  procedure erzeugen;
  procedure DoMove(MoveCount: Integer); override;
end;

var
 Form1: TForm1;
 Player: TPlayer;