Canvas does not allow drawing?

Question

为什么会有这个错误发生阿？

Answer 1

Var Arr: Tlist;
Var x,y, i : Integer;
Var Canva : TCanvas;
    Arr := Tlist.Create;
    x := 10;
    y := 10;
    Canva := TCanvas.Create;
    Canva.TextOut( x, y, 'Idle Count');
    Arr.Add(Pointer(Canva));我是想用一个TList来保存多个画布对象。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  Canva:TCanvas;
begin
  Canva := TCanvas.Create;
  Canva.Handle:=GetDC(form1.Handle);//得到一个DC才可以的；
  Canva.TextOut(0,0,'Idle Count');end;