Delphi – 将bmp转换为png失败

if Clipboard.HasFormat(CF_PICTURE) then
begin
    bitmap := TBitmap.Create;
    png := TPNGImage.Create;
    try
        bitmap.Assign(Clipboard);
        bitmap.SaveToFile(ExtractFilePath(application.ExeName) + '\filename.bmp');
        png.Draw(bitmap.Canvas, Rect(0, 0, bitmap.Width, bitmap.Height));
        png.SaveToFile(extractfilepath(application.ExeName) + '\filename.png');
    finally
        bitmap.free;
        png.free;
    end;
end;

虽然转换为bmp工作,我甚至可以在mspaint中打开它并查看其内容,转换为png失败,我有一个空白的png图像.我究竟做错了什么？

然而,更容易的是一个简单的任务：

png.Assign(Bitmap);