Как преобразовать изображение из PNG в BMP в Delphi VCL?

Когда я конвертирую изображение PNG в изображение BMP с помощью приведенной ниже процедуры, цвета в BMP не такие, как в исходном PNG.

procedure TForm1.Button4Click(Sender: TObject);
var
  R: TRect;
  Bmp: TBitmap;
  Png: TPngImage;
begin
  Png := TPngImage.Create;
  try
    Png.LoadFromFile('C:\temp\Source.png');
    bmp := TBitmap.Create(Png.Width, Png.Height);
    try
      R := Rect(0, 0, Png.Width, Png.Height);
      bmp.Canvas.CopyRect(R, png.Canvas, R);
      bmp.SaveToFile('C:\temp\target.bmp')
    finally
      Bmp.Free;
    end;
  finally
    Png.Free;
  end;
end;

Не могли бы вы подсказать мне, как решить эту проблему, пожалуйста?