Source position: winapih.inc line 155
function GetTextExtentPoint(
DC: HDC;
Str: PChar;
Count: Integer;
var Size: TSize
):Boolean;