1:
2:
3:
4:
5:

constructor TNenSprite.Create(AParent: TSprite);

procedure TNenSprite.DoCollision(Sprite: TSprite; var Done: Boolean);

procedure TNenSprite.DoMove(MoveCount: Integer);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

      with AParentT Do
      Begin
        Image := MainForm.ImageList.Items.Find('Toll.bmp');
        Width := MapSize;
        Height := MapSize;

        AnimCount := Image.PatternCount+1;
        AnimLooped := False;
        AnimSpeed := AnimationSpeed*2;
        AnimStart := 0;

        Z := 6;
      end;