Delphi - texto a hexadecimal

holaa a todos los foreros:



Tengo que mandar un parametro mediante http, y necesito convertir un texto en hesadecimal, en concreto una url.¿ conoceiss una función para comvertir una cadena de texto o string en hexadecimal?



Muchas gracias de antemano

A ver si esta función te ayuda:

function StringToHex(S: string): string;
var
i: integer;
begin
Result := '';
for i := 1 to Length( S ) do
Result := Result + IntToHex( Ord( S[i] ), 2 );
end;