[Lazarus] Real Font Size

[Vojtěch Čihák]

Hello,
is there a cross-platform way how to obtain real font size ? Currently all components has default size 0. But in real numbers it is usually 9 ~ 12 - depends on system setting. I would like to use smaller font, for example 2/3 of the default size. Is there something like:
 
Canvas.Font.Size := 2 * GetRealFontSize(Font.Size) div 3;
(Of course there are many system setting for fonts. I'm interested in font-size of the most common components like TLabel).
 
Thanks.