Которая 2 раза выделяет память для всей строки, и сканирует все символы в строке, в поисках &.

TLabel.Text  := 'Text';  - эта процедура  выполнится 2 раза, на любой платформе. Чтобы она выполнилась 1 раз, нужно сделать

TLabel.PrefixStyle := TPrefixStyle.NoPrefix;

TText 

TText.Text  := 'Text'; Процедура DelAmp выполниться в любом случае на любой платформе

procedure TText.SetText(const Value: string);
[..]
begin
  if Text <> Value then
  begin
    NewText := ConvertText(DelAmp(Value));

[..]

Стили состоят из множества TText элементов. Теперь представьте сколько ресурсов тратиться впустую.

function DelAmp(const Text: string): string;
var
  I, J: Integer;
  Sb: TCharArray;
begin
  Result := '';
  if Text <> '' then
  begin
    SetLength(Sb, Text.Length);
    I := Low(Text);
    J := 0;
    while I <= High(Text) do
    begin
      if (Text[I] <> '&') then
      begin
        Sb[J] := Text[I];
        Inc(J);
      end
      else
      begin
        if ((I < High(Text)) and (Text[I + 1] = '&')) then
        begin
          Sb[J] := Text[I];
          Inc(J);
          Inc(I);
        end;
      end;
      Inc(I);
    end;
    Result := string.Create(Sb, 0, J);
  end;
end;

Решение - скопировать FMX.Types в папку с проектом, и переделать функцию на:
 

function DelAmp(const Text: string): string;
begin
  Result := Text;
end;

Нуждаюсь в помощи.

Необходимо в TText вывести текст в Unicode, содержащий смайлы.

На iOS проблем нет - смайлы отображаются. 

На Android - монохромные значки (залитые черным) - .

При этом, если выводить в ListView (через TListItemText), то смайлы выходят и на Android. Шрифт при этом тот же, что и для TText. 

Но необходимо именно в TText

Помогите, пожалуйста, как вывести смайлы на Andorid в TText?

Тут разные цвета текста

Rad Studio 10.1 Berlin Update 2

На Rectangle кидаю компонент Text или Label. Иногда при запуске приложения, примерно 1 из 8 запусков, символы отображаются некорректно. Хотелось бы узнать причину такого поведения.