关于GDI的问题，高手来看下。

procedure TForm1.FormPaint(Sender: TObject); 
var　
  g: TGPGraphics; 　
  p: TGPPen; 
begin　
  g := TGPGraphics.Create(Canvas.Handle); 
  p := TGPPen.Create(aclRed, 2); 　
  g.SetSmoothingMode(ListBox1.ItemIndex - 1); 　
  g.DrawEllipse(p, 10, 10, ClientWidth - ListBox1.Width - 20, ClientHeight - 20); 　
  g.DrawLine(p, 0, 0, ClientWidth - ListBox1.Width, ClientHeight); 　
  g.DrawLine(p, ClientWidth - ListBox1.Width, 0, 0, ClientHeight); 　
  p.Free; 　
  g.Free; 
end; 
以这段代码为例，我想问的是，在var中  TGPGraphics和TGPPen是什么，在我的印象中，好像没见过这样的变量类型，请指导。
 我也考虑过，可能是一个GDI软包包，可是在哪里可以下载到，请给个地址，谢谢.在线等!