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:       property ClipRect: TelRect read fClipRect; // Use ClipImage to set ClipRect
        // Custom Bounding Box
        property CustomBBox: TelRect read fCustomBBox write fCustomBBox;
  
      published
        property AspectRatio: Single read GetAspectRatio;
  
  
negative.code: constructor TelParallaxSprite.Create;
  begin
    inherited Create;
    fRecursion := true;
  end;
  
  destructor TelParallaxSprite.Destroy;
  begin
  