TGPPen 宽度的理解

procedure TForm4.Button1Click(Sender: TObject);
var
  g: TGPGraphics;
  p: TGPPen;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  p := TGPPen.Create(aclBlack, );

  g.DrawLine(p, Button1.Left, Button1.Top + Button1.Height + , Button1.Left + Button1.Width, Button1.Top + Button1.Height + );

  g.Free;
  p.Free;
end;