Breitenberechnung Text in Listbox FMX

[Delphi.Narium]

In meinem ollen Delphi 7 mache ich das sinngemäß so:

TLabel auf's Formular. Visible = false, AutoSize = true.

Delphi-Quellcode:

function TForm1.GetNewLength(sCaption : String) : Integer;
begin
  Label1.Caption := sCaption;
  Result         := Label1.Width;  // gglfs. muss man hier noch was für die Scrollbar ... zurechnen.
end;
... 
newlength := GetNewLength(Eigenschaften.Items[i].Caption + Eigenschaften.Items[i].Value);

Oder:
newlength := Label1.Canvas.TextWidth(Eigenschaften.Items[i].Caption+Eigenschaften.Items[i].Value);//TListbox

Nur so als Idee, keine Ahnung ob unter FMX umsetzbar.