procedure TForm1.ListBoxItemApplyStyleLookup(Sender: TObject);

var o: TFMXObject;

begin  

  o:=(Sender as TListBoxItem).FindStyleResource('text');

   i f o is TText then(Sender as TListBoxItem).Height :=(o as TText).Height;

end;