Source position: graphics.pp line 1031
type TLCLTextMetric = record
Ascender: Integer;
Descender: Integer;
Height: Integer;
end;