关于GDI+ 帮忙看看错在哪

Question

以下代码不知道哪错了，按Button1后无反应，请指点指点
var
  Form1: TForm1;
  Mgraphics: TGPGraphics;
  Rp: TGPPen;implementation{$R *.dfm}procedure TForm1.FormDestroy(Sender: TObject);
begin
  Rp.Free;
  Mgraphics.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Mgraphics:= TGPGraphics.Create(image1.Canvas.Handle);
  Rp := TGPPen.Create(aclred, 2);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Mgraphics.DrawEllipse(Rp, 11, 11, 222, 111);
end;

Answer 1

Rp := TGPPen.Create(aclred, 2);
Rp := TGPPen.Create(colorreftoargb(clred), 2);

Answer 2

TGPGraphics不能定义为全局，只能用一次

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  Mgraphics: TGPGraphics;
  Rp: TGPPen;
begin
  Mgraphics:= TGPGraphics.Create(image1.Canvas.Handle);
  Rp := TGPPen.Create(aclred, 2);
  Mgraphics.DrawEllipse(Rp, 11, 11, 222, 111);
  Rp.Free;
  Mgraphics.Free;
end;

Answer 4

那就在Button1Click中循环，要不然还得重新创建销毁