Подскажите, как наклонить фигуру на 45 градусов (delphi)?

[Ralrahook]

День добрый, есть некий овал: "Image1.Canvas.RoundRect(140,10,170 ,150,185,275);" и как его наклонить, допустим на 45 градусов (delphi)? Подскажите кто знает?

[Pavia]

procedure TForm1.Button2Click(Sender: TObject);
var
  XForm:TXForm;
const
  Angle= Pi/6;
begin
  Image1.Picture.Bitmap:=TBitmap.Create;
  With Image1.Picture.Bitmap do
    begin
    Width:=500;
    Height:=500;
    SetGraphicsMode(canvas.Handle, GM_ADVANCED);
    ModifyWorldTransform(canvas.handle, XForm, MWT_IDENTITY);   // При MWT_IDENTITY , XForm игнорируется
    XForm.eM11:=Cos(Angle);    XForm.eM12:=sin(Angle);
    XForm.eM21:=-sin(Angle);   XForm.eM22:=cos(Angle);
    XForm.eDx:=50; XForm.eDy:=-50;
    ModifyWorldTransform(canvas.handle, XForm, MWT_LEFTMULTIPLY);
    Canvas.RoundRect(140,10,170 ,150,185,275);
    end;
end;