Jak prosto przekonwertowac Bitmap do PNG

Witam. Jak w temacie. Chcialbym przekonwertowac TBitmap wprost do formatu PNG, ale nie wiem jak. Sa gdzies komponenty ale z uzyciem zewnetrznych bibliotek, a to odpada, chce miec program w całości.

chciales prosto to masz prosto :)

http://pngdelphi.sourceforge.net/

procedure TForm1.Button1Click(Sender: TObject);
var B : TBitmap;
    P : TPngObject;
begin

 B := TBitmap.Create;
 B.LoadFromFile('obraz.bmp');

  P := TPngObject.Create;
  P.Assign(B);
  P.SaveToFile('obraz.png');
  P.Free;

 B.Free;

end;

//mam nadzieje ze takie komponenty ci odpowiadaja bo prosciej juz sie chyba nie da :)