Firemonkey Textcontrol "&" Ampersand

[QuickAndDirty]

"&" Zeichen werden in der Text Eigenschaft mancher Controls gelöscht!

Also ich habe das Problem bei den TTreeViewItem.Text von TTreeView
und Stackoverflow hat das Problem bei anderen Firemonkey controlls und der Text Eigenschaft seit 2015. Ampersand wird gelöscht
Es gibt keine fertige Lösung.

Ich brauche diese "&" zeichen. Es ist verrückt!
'& '
erzeugt auch keinen unterstrich...

Ist das Problem bekannt? Ist die Lösung bekannt?

[QuickAndDirty]

Das hier hat soweit nicht die richtigen Auswirkungen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var aNode:TTreeViewItem;
begin

  aNode := TTreeViewItem.Create(TreeView1);
  aNode.Parent := TreeView1;
  aNode.PrefixStyle := TPrefixStyle.NoPrefix;
  aNode.Text := 'Hallo& Du&& DU';

  aNode := TTreeViewItem.Create(TreeView1);
  aNode.Parent := TreeView1;
  aNode.PrefixStyle := TPrefixStyle.HidePrefix;
  aNode.Text := 'Hallo& Du&& DU';

end;

TTextControl.TextObject:tcontrol
erfährt kein Update der PrefixStyle Eigenschaft wenn es vom Typ TText ist....

[QuickAndDirty]

Ja aber ich möchte gerne das PrefixStyle funktioniert und ich möchte nicht beim lesen aus der datebank und beim zurückschreiben in die Datenbank Escapesequencen behandeln.