关于在panel上画边框, 边框的宽度不一样(50分)

实现代码如下：但看起来会显得左，上边框和右，下边框的宽度不一样，不知道什么原因？
var c:TCanvas;
begin
try
c:=TControlCanvas.Create;
TControlCanvas(c).Control := panel1;
c.Pen.Width:=2;
c.Pen.Color:=clgreen;
c.MoveTo(9,9);
c.LineTo(panel2.Width+20,10);
c.LineTo(panel2.Width+20,panel2.Height+20);
c.LineTo(10,panel2.Height+20);
c.LineTo(10,10);
finally
c.Free;
end;

测试了一下，没看出哪里不一样。

画的边框的左边偏细，右边偏粗啊