Специальные символы

[Iscander]

Здравствуйте, помогите найти способ добавить спец символ в смс.

procedure TForm1.SendSMSTO (Tel,text_sms:string);
  {$IFDEF ANDROID}
var
     Intent: JIntent;
{$ENDIF}
begin
  {$IFDEF ANDROID}
Intent:=TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
Intent.setData(StrToJURI('sms:'+Tel+'?body='+text_sms));
SharedActivity.startActivity(Intent);
{$ENDIF}
end;

что только не пробовал, а вспомнить не могу как ранее реализовал этот вопрос.

SendSMSTO('+79*********','#');

В результате этот спец символ не отображается в смс.

Изменено 12 марта, 2019 пользователем Iscander
ошибка

[Slym]

URLEncode?

[Iscander]

8 часов назад, Slym сказал:

URLEncode?

function URLEncode(const AStr: string): string;
var
  LBytes: TBytes;
  LIndex: Integer;
begin
  Result := '';
  LBytes := TEncoding.UTF8.GetBytes(AStr);
  for LIndex := Low(LBytes) to High(LBytes) do
    Result := Result + '%' + IntToHex(LBytes[LIndex], 2);
end;

Да, точно, помогло. ))) Спасибо.