Рисование фигур в делфи

[masha_vf]

Ка сделать так, что фигуры поворачиваливались при рисовании?

unit Ellipse;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure drawCoolRectangle(canvas: TCanvas);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Center, Radius: TPoint;
Circle: Boolean;
bmp : TBitmap;
cl:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
bmp := TBitmap.Create;
bmp.SetSize(form1.Width, form1.Height);

Center.X := -1;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
Randomize;
cl:=1+random(8);
Center.X := X;
Center.Y := Y;
end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Center.X <> -1 then
begin
form1.Caption:=Format ('Координаты: x=%d, y=%d ' , [X, Y]);;
Radius.X := abs(Center.X-X);
Radius.Y := abs (center.Y-Y);
form1.Canvas.Draw(0, 0, bmp);
drawCoolRectangle(form1.Canvas);
end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
drawCoolRectangle(bmp.Canvas);
form1.Canvas.Draw(0, 0, bmp);
Center.X := -1;
end;

procedure TForm1.drawCoolRectangle(canvas: TCanvas);
begin
if cl=1 then canvas.Brush.Color:=clred;
if cl=2 then canvas.Brush.Color:=clblue;
if cl=3 then canvas.Brush.Color:=claqua;
if cl=4 then canvas.Brush.Color:=clgreen;
if cl=5 then canvas.Brush.Color:=clblack;
if cl=6 then canvas.Brush.Color:=clyellow;
if cl=7 then canvas.Brush.Color:=clsilver;
if cl=8 then canvas.Brush.Color:=clpurple;
canvas.Rectangle(Center.X-Radius.X, Center.Y-Radius.Y, Center.
X+Radius.X, Center.Y+Radius.Y);
end;
end.

[min@y™]

поворачиваливались при рисовании?

это вот так штоль?