//绘图质量
var
  g: TGPGraphics;
  p: TGPPen;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  p := TGPPen.Create(MakeColor(255,0,0),2);

  g.SetSmoothingMode(SmoothingModeHighQuality); {高质量}
  g.DrawLine(p,11,11,111,111);
  g.SetSmoothingMode(SmoothingModeHighSpeed);   {高速度,低质量}
  g.DrawLine(p,66,11,222,128);

  p.Free;
  g.Free;
end;
绘图质量参数:
SmoothingModeInvalid     = -1; {指定一个无效模式}
SmoothingModeDefault     = 0;  {指定不消除锯齿}
SmoothingModeHighSpeed   = 1;  {指定高速度、低质量呈现}
SmoothingModeHighQuality = 2;  {指定高质量、低速度呈现}
SmoothingModeNone        = 3;  {指定不消除锯齿}
SmoothingModeAntiAlias   = 4;  {指定消除锯齿的呈现}