TfpgGDIFontResource

pt 

OpenFontByDesc

Create

Destroy

HandleIsValid

GetAscent

GetDescent

GetHeight

GetTextWidth