Смайлики в тексте TELEGRAM API

[remus-xe2]

Подскажите, как отправить смайлик в тексте? подставлял различные коды в текст сообщения, безрезультатно, они так в текстовом виде и приходят.

Отправляю текст так:

function URLEncode(const Url: Utf8String): string;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(Url) do
  begin
    if CharInSet(Url[I], ['A'..'Z', 'a'..'z', '0'..'9', '-', '=', '&', ':', '/', '?', ';', '_']) then
      Result := Result + Utf8ToAnsi(Url[I])
    else
      Result := Result + '%' + IntToHex(Ord(Url[I]), 2);
  end;
end;

Procedure SendNewMessageThread.Execute;
CONST
 URL = 'https://api.telegram.org/bot%s/sendMessage?chat_id=%s&text=%s';
var
  HTTPs: THTTPSend;
  key: String;
begin
     if bot = 'admevent' then
      key := key_adm_bot  else
    if bot = 'userevent' then
      key := key_user_bot;

  if key = '' then
      begin
        AddEvent('error', 'Ошибка отправки сообщения в месенеджер телеграм | Key = empty', '')  ;
        exit;
      end;

  try
    https:=thttpsend.Create;
    if not HTTPs.HTTPMethod('get',FORMAT(URL, [key, adressat, UrlEncode(text) ] ) ) then
     AddEvent('error', 'Ошибка отправки сообщения в месенеджер телеграм | '+ HTTPs.ResultString, '')  ;
  finally
     HTTPs.Free;
  end;

end;