Animation wird nicht richtig abgespielt mit DelphiX

[Die Muhkuh]

Hi,

ich glaub ich hab ihn:

Delphi-Quellcode:

procedure TAnimation.DoCollision(Sprite: TSprite; var Done: boolean);
begin
  if not FCollision then
  begin
    if Sprite is TStone then
    begin
      FCollision := true;
      FMove := false;

      Image := Form1.DXImageList1.Items.Find('Explosion');
      Width := Image.Width;
      Height := Image.Height;
      AnimCount := Image.PatternCount;
      AnimSpeed := 12/1000;
      AnimLooped := false;
      AnimStart := 0;
      Form1.DXWaveList1.Items.Find('Explosion').Play(false);
    end;
  end;
end;

Wie wäre es zuerst das Bild laden und AnimCount setzen :stupic: ?