please say you DON''T have just copied this example above into your code???
of course it will not work... you have to set your variables, load your images (and change "picname" to your image''s name)
and a procedure does not start with "procedure dxtimertimer;" ....

to theropod : ani_step: integer = 0; <-- thx for the tipp , in fact i did not know that this works :-P i was used to do this in the create procedure so i never looked or asked for other possibilities.