ВЫВОД повернутого изображения

[New man]

Я пишу программу, которая должна выводить разные изображения
под разными углами.
Я нашел 2 разных кода, но они изменяют толко сами изображения,
а мне надо вывести изображение под углом на, допустим, канвас формы.
Как это реализовать?
вот куски кода

procedure TForm1.BitBtn1Click(Sender: TObject);
var M:TXFORM;
    a:Double;
    HDC:THandle;
    b:TBitmap;
begin
   B := TBitMap.Create;
   B.Width:=Image1.Width  ;
      B.Height:=Image1.Height  ;
      B.Canvas.Draw(0,0,Image1.Picture.Graphic);

   hDc := image1.Canvas.Handle;
   SetGraphicsMode(hDc, GM_ADVANCED);

   FILLCHAR(M,SIZEOF(M),0);
   M.eM11 := 1;
   M.eM12 := 0;
   M.eM21 := 0;
   M.eM22 := 1;
   M.eDx := -B.Width div 2;
   M.eDy := -B.Height div 2;
   SetWorldTransform(hDc, M);

   a := PI/6;
   fillChar(M, sizeOf(M), 0);
   M.eM11 := Cos(a);
   M.eM12 := Sin(a);
   M.eM21 := -Sin(a);
   M.eM22 := Cos(a);
   M.eDx := 0;
   M.eDy := 0;
   ModifyWorldTransform(hDc, M, MWT_RIGHTMULTIPLY);

   M.eM11 := 1;
   M.eM12 := 0;
   M.eM21 := 0;
   M.eM22 := 1;
   M.eDx := B.Width div 2;
   M.eDy := B.Height div 2;
   ModifyWorldTransform(hDc, M, MWT_RIGHTMULTIPLY);

   image1.Canvas.Draw(0, 0, b);
// ??? BitBlt(hDc, 0, 0, image1.Width, image1.Height, B.Canvas.Handle, 0, 0, SRCCOPY);
end;

var M:TXFORM;
    a:Double;
    HDC:THandle;
    b:TBitMap;
    M1, M2, k : double;
begin
   B := TBitMap.Create;
   try
      B.Width:=Image1.Width;
      B.Height:=Image1.Height;
      B.Canvas.Draw(0,0,Image1.Picture.Graphic);

      hDc := image1.Canvas.Handle;
      SetGraphicsMode(hDc, GM_ADVANCED);

      // translate
      fillChar(M, sizeOf(M), 0);
      M.eM11 := 1;
      M.eM12 := 0;
      M.eM21 := 0;
      M.eM22 := 1;
      M.eDx := -B.Width div 2;
      M.eDy := -B.Height div 2;
      SetWorldTransform(hDc, M);

      // scale
      fillChar(M, sizeOf(M), 0);
      M1 := Min(Image1.Width, Image1.Height);
      M2 := sqrt(sqr(b.Width) + sqr(b.Height));
      k := M1/M2;
      M.eM11 := k;
      M.eM12 := 0;
      M.eM21 := 0;
      M.eM22 := k;
      M.eDx := 0;
      M.eDy := 0;
      ModifyWorldTransform(hDc, M, MWT_RIGHTMULTIPLY);

      // rotate
      a := PI/6;
      fillChar(M, sizeOf(M), 0);
      M.eM11 := Cos(a);
      M.eM12 := Sin(a);
      M.eM21 := -Sin(a);
      M.eM22 := Cos(a);
      M.eDx := 0;
      M.eDy := 0;
      ModifyWorldTransform(hDc, M, MWT_RIGHTMULTIPLY);

      // translate
      M.eM11 := 1;
      M.eM12 := 0;
      M.eM21 := 0;
      M.eM22 := 1;
      M.eDx := Image1.Width div 2;
      M.eDy := Image1.Height div 2;
      ModifyWorldTransform(hDc, M, MWT_RIGHTMULTIPLY);

      image1.Canvas.Draw(0, 0, b);
   finally
      b.free;
   end;
end;

Или хотя бы объясните,
как работает этот код, пожалуйста.

[New man]

Вроде бы сам разобрался

procedure TForm1.BitBtn1Click(Sender: TObject);
var M:TXFORM;
    a:Double;
    HDC:THandle;
    b:TBitmap;
    h,w:integer;
    T:TDateTime;
begin
  T:=Time;
   B := TBitMap.Create;
   B.Width:=Image1.Width  ;
      B.Height:=Image1.Height  ;
      B.Canvas.Draw(0,0,Image1.Picture.Graphic);
    h:=image1.Height;
   w:=Image1.Width;
   Image2.Width:=round(cos(a)*w+sin(a)*h);
   Image2.Height:=Image1.Width;
   hDc := image2.Canvas.Handle;
   SetGraphicsMode(hDc, GM_ADVANCED);

   FILLCHAR(M,SIZEOF(M),0);
   M.eM11 := 1;
   M.eM12 := 0;
   M.eM21 := 0;
   M.eM22 := 1;
   M.eDx := -B.Width div 2;
   M.eDy := -B.Height div 2;
   SetWorldTransform(hDc, M);

   a := PI/6;
   fillChar(M, sizeOf(M), 0);
   M.eM11 := Cos(a);
   M.eM12 := Sin(a);
   M.eM21 := -Sin(a);
   M.eM22 := Cos(a);
   M.eDx := 0;
   M.eDy := 0;
   ModifyWorldTransform(hDc, M, MWT_RIGHTMULTIPLY);

   M.eM11 := 1;
   M.eM12 := 0;
   M.eM21 := 0;
   M.eM22 := 1;
   M.eDx := B.Width div 2;
   M.eDy := B.Height div 2;
   ModifyWorldTransform(hDc, M, MWT_RIGHTMULTIPLY);

   image2.Canvas.Draw(36,36, b);
   Form1.Caption:=inttostr(MilliSecondsBetWeen(T,Time));
// ??? BitBlt(hDc, 0, 0, image1.Width, image1.Height, B.Canvas.Handle, 0, 0, SRCCOPY);
end;