object TLayout
StyleName = 'GMailLabelstyle'
Height = 25.000000000000000000
Width = 100.000000000000000000
object TRectangle
StyleName = 'labelRect'
Align = alClient
Height = 25.000000000000000000
Sides = []
Width = 75.000000000000000000
object TText
StyleName = 'labelText'
Align = alClient
Color = claBlack
Height = 21.000000000000000000
HitTest = False
Margins.Left = 2.000000000000000000
Margins.Top = 2.000000000000000000
Margins.Right = 2.000000000000000000
Margins.Bottom = 2.000000000000000000
Text = 'label'
Width = 71.000000000000000000
end
The example source code comes with the free TGmailLabel control so you get a free Delphi Firemonkey component too. The resulting component is cross platform and works on IOS, Android, OSX, and Windows. The blog is in Italian and the link auto translates it for you via Google Translate.
Check out the full blog post on how to build your own custom styled component.
Here is a mirror of the example source if the original goes down: Delphi Firemonkey GmailLabel Component