[NumLock]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  dc: HDC;
  savetagx: tagXFORM;
  tagx: tagXFORM;
  angle: Real;
begin
  angle:=30*Pi/180;
  dc:=Image1.Canvas.Handle;
  SetGraphicsMode(dc, GM_ADVANCED);
  GetWorldTransform(dc, savetagx);
  ZeroMemory(@tagx, SizeOf(tagx));
  tagx.eM11:=Cos(angle);
  tagx.eM12:=Sin(angle);
  tagx.eM21:=-Sin(angle);
  tagx.eM22:=Cos(angle);
  tagx.eDx:=Image1.Picture.Bitmap.Width / 2;
  tagx.eDy:=Image1.Picture.Bitmap.Height / 2;
  ModifyWorldTransform(dc, tagx, MWT_LEFTMULTIPLY);
  Image1.Canvas.Draw(0, 0, Image2.Picture.Graphic);
  SetWorldTransform(dc, savetagx);
end;