Как перекодировать фразу в эту кодировку в Делфи?

[igrok111]

Например в Edit1 находиться фраза, нужно в Edit2 вывести её же закодированую
Подсказали, что это 16-ричная кодировка(так ли это?)

есть ли в делфи специальные функции типо UTF8Encode(или что-то вроде) что б переделать?

[raxp]

EncodeURL() из синапса.

Добавлено

...вариант от psycho-coder:

function ToURLString(URI: String): String;
var
  i, Len: Integer;
begin
  Result := '';
  URI := AnsiToUtf8(URI);
  Len := Length(URI);
  for i := 1 to Len do
    Result := Result + '%' + IntToHex(Ord(URI[i]), 2);
end;

[igrok111]

Ок, спс за наводку. Получилось вот так.

Uses 
HTTPApp;
function URLEncode(const s : string) : string;
begin
result := HTTPEncode(s);
end

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.text:=(URLEncode(edit1.text));
end;

[BDA]

А зачем делать еще одну функцию, если в теле функции только вызов другой функции?

[igrok111]

Сообщение от BDA

А зачем делать еще одну функцию, если в теле функции только вызов другой функции?

А я вообще нуб, получилось так, вот лучше не трогать. Если знаеш как легче - напиши
А вот понял:

procedure TForm1.Button2Click(Sender: TObject);
begin
edit2.Text:=HTTPEncode(edit1.text);
end;

Спасибо