Source position: jwawingdi.pas line 4973
function GetTextExtentPointA(
hdc: HDC;
lpString: LPCSTR;
cbString: Integer;
var Size: TSize
):BOOL;