procedure TestBmpToPng;
var
 bmp: PBitmap;
 png: PPngObject;
begin
 bmp := NewBitmap(0,0);
 png := NewPngObject;
 
 bmp.LoadFromFile('Test.bmp');
 png.AssignHandle(bmp.Handle, False{Transparent}, 0{Transp. color});
 png.SaveToFile('Test.png');
 
 bmp.Free;
 png.Free;
end;