Вращение TImage c PNG. Нужна переделка решения для BMP под PNG

back->Picture->Bitmap->Assign(png);

back->Picture->Assign(png);

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include <Vcl.Imaging.pngimage.hpp>
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
void RotateDC(HDC__* dc,float angle);
 
Graphics::TBitmap*back;//Задний буффер
TPngImage *png;
 
float angle=0;
float RotSpeed=5;
bool IsRightDown;
bool IsLeftDown;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
DoubleBuffered = true ;
 
png = new TPngImage();
png->LoadFromFile("bug.png");
 
back=new Graphics::TBitmap();
back->Width=100;
back->Height=100;
back->Assign(png);
 
angle=0;
IsRightDown=false;
IsLeftDown=false;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(IsRightDown==true)
     {
     angle+=RotSpeed;
     }
if(IsLeftDown==true)
     {
     angle-=RotSpeed;
     }
 
RotateDC(back->Canvas->Handle,angle);
back->Canvas->Draw(-50,-50,png);
Image1->Picture->Assign(back);
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
 
{
if(Key==VK_RIGHT)
     {
     IsRightDown=true;
     }
if(Key==VK_LEFT)
     {
     IsLeftDown=true;
     }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
if(Key==VK_RIGHT)
     {
     IsRightDown=false;
     }
if(Key==VK_LEFT)
     {
     IsLeftDown=false;
     }
}
//---------------------------------------------------------------------------
void RotateDC(HDC__* dc,float angle)
{
XFORM xform;
 
angle = angle * 3.1416 / 180.0;
 
xform.eDx = 50;//0.0f;
xform.eDy = 50;//0.0f;
xform.eM11 = cos(angle);
xform.eM12 = sin(angle);
xform.eM21 = -sin(angle);
xform.eM22 = cos(angle);
 
SetGraphicsMode(dc, GM_ADVANCED);
SetWorldTransform(dc, &xform);
}
//---------------------------------------------------------------------------

вот примерчик кода для BCB5 
//===================
#include <vcl.h>
//#pragma hdrstop
#include "Unit1.h"
#include <windows.h>
#include <gdiplus.h>
using namespace Gdiplus;
 
GdiplusStartupInput gdiplusStartupInput;
ULONG_PTR           gdiplusToken;
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  HDC hdc=Image1->Canvas->Handle;
  Gdiplus::Status s;
  s=Gdiplus::GdiplusStartup(&gdiplusToken, &gdiplusStartupInput,NULL);
  Gdiplus::Image* image=new Gdiplus::Image(L"2.png");  
  Gdiplus::Graphics Agraphic(hdc);
  Agraphic.DrawImage(image,0,0);
}
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction
&Action)
{
  Gdiplus::GdiplusShutdown(gdiplusToken);
}
//===================