خطأ اثناء تعريف الكائن TPNGObject

كنت قد بحت عن كود يقوم بتحويل الصور من الصيغه bmp ألى png و وجدت هذا الكود

procedure BitmapFileToPNG(const iimage:TBitmap;spath:string);
var
  Bitmap: TBitmap;
  PNG: TPNGObject;
begin
  Bitmap := TBitmap.Create;
  PNG := TPNGObject.Create;
  In case something goes wrong, free booth Bitmap and PNG
  try
    Bitmap:=iimage;
    PNG.Assign(Bitmap);    //Convert data into png
    PNG.SaveToFile(spath);
  finally
    Bitmap.Free;
    PNG.Free;
  end
end;

كما ترون هناك كائن بأسم TPNGObject عند ترجمه الكود يكون الخطأ عنده ,, Undeclared identifier

ف هل هناك شئ ما لاضافته الى uses ليعمل هذا الكائن ام ماذا ؟