TCanvas的问题

with TCanvas.Create do

begin

 Handle:=GetDC(0);

 Brush.Style:=bsClear;

 Pen.Color:=clBlue;

 Rectangle(0,0,50,50);

 Free;

end;

在读D5开发人员指南的时候他告诉我可以这样做.但是我今天在查看TCanvas的帮助时是会造成内存漏露的.因为TCanvas根本就没有重载Free方法,所以也就谈不到释放先前定义的DC句柄了.正确的做法是使用TControlCanvas类,或者在以上代码的最后手动释放掉DC句柄.ReleaseDC