procedure TForm1.FormPaint(Sender: TObject); 
var 
  AGraphics: IGPGraphics; 
  APen: IGPPen; 
  AFont: IGPFont; 
  ABrush: IGPSolidBrush; 
  rc: TPoint; 
begin 
  AGraphics := TGPGraphics.Create(Canvas); 
  AGraphics.SmoothingMode := SmoothingModeAntiAlias;//指定平滑（抗锯齿） 
  AGraphics.TextRenderingHint := TextRenderingHintAntiAlias;//指定使用过程中呈现的文本采用反走样 
  APen := TGPPen.Create($FF000000,3); 
  AGraphics.DrawLine(APen,5,5,100,100); 
 
  APen.Color := $FF0000FF; 
  APen.Width := 2; 
  AGraphics.DrawEllipse(APen,120,5,100,100); 
 
  Canvas.Font.Name := '微软雅黑'; 
  Canvas.Font.Size := 13; 
  AFont := TGPFont.Create(Canvas.Handle); 
  ABrush := TGPSolidBrush.Create($FFFF0000); 
  rc.X := 10; 
  rc.Y := 150; 
  AGraphics.DrawString('无幻博客'+#13#10+'http://blog.csdn.net/akof1314',AFont,rc,ABrush); 
end;