anchor.diff:  begin
     inherited Update(dt);
     case fDirection of
  -   dtUp: fInternalPosition.Y := fInternalPosition.Y -fSpeed*dt;
  -   dtDown: fInternalPosition.Y := fInternalPosition.Y +fSpeed*dt;
  -   dtLeft: fInternalPosition.Y := fInternalPosition.X -fSpeed*dt;
  -   dtRight: fInternalPosition.Y := fInternalPosition.X +fSpeed*dt;
  +   dtUp: Position.Y := Position.Y -fSpeed*dt;
  +   dtDown: Position.Y := Position.Y +fSpeed*dt;
  +   dtLeft: Position.X := Position.X -fSpeed*dt;
  +   dtRight: Position.X := Position.X +fSpeed*dt;
  +  end;
   end;
   
   end.
  
positive.code:       procedure Pause(); {$IFDEF CAN_INLINE} inline; {$ENDIF}
        procedure UnPause(); {$IFDEF CAN_INLINE} inline; {$ENDIF}
  
        procedure Draw(DrawChildren: Boolean = true); Override;
        procedure Update(dt: Double = 0.0); Override;
      published
        property Direction: TelParallaxDirection read fDirection write fDirection;
  
negative.code:     property Count: Integer read GetCount;
  end;
  
  implementation
  
  uses
    ElysionGraphics;
  
  { TelMovingSprite }
  
  