anchor.diff:    FImage := CreateImage_BMP(ABmp, ASize);
     if FTransparent then
     begin
  -    FImage.CreateMaskFromSample(0, 0);
  +    FImage.CreateMaskFromSample(AMaskSample.X, AMaskSample.Y);
       FImage.UpdateImage;
     end;
     FImageFilename := 'byte'; // because handle paint check if file is set
  
positive.code:     constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
  
      procedure   ImageFromByte(ABmp: Pointer; ASize: longword);
    end;
  
  
  
negative.code:   Repaint;
  end;
  
  procedure TfpgBaseImgAnim.ImageFromByteArray(ABmp: Pointer; ASize: longword;
    AMaskSample: TPoint);
  begin
    if ABmp=nil then
      Exit;
  