Du solltest die Methode Move des TImageSprite in deinem TAnimation überschreiben und vielleicht dort die AnimPos einstellen.
Delphi-Quellcode:
TAnimation = class(TImageSprite)
public
procedure Move(MoveCount:Integer);
end;
procedure TAnimation.Move(MoveCount:Integer);
begin
// hier die Funktion für die AnimPos
AnimPos:=f(MoveCount);
end;
So hab' ich das in einigen von meinen Projekten mit DelphiX gemacht.
Bei der automatischen Animation müsstest du vielleicht irgendwas auf True setzen.