{преобразовать строку в 16-ричный формат}
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;

{преобразовать символ в 16-ричный формат}
function ChrToHex(S: Char): String;
begin
  Result:= IntToHex(ord(S),2);
end;

{преобразовать строку в 16-ричном формате обратно в текст}
function HexToString(H: String): String;
var I: Integer;
begin
  Result:= '';
  for I := 1 to length (H) div 2 do
    Result:= Result+Char(StrToInt('$'+Copy(H,(I-1)*2+1,2)));
end;

{преобразовать "символ" в 16-ричном формате в обычный символ}
function HexToChr(H: String): Char;
begin
    Result:= Char(StrToInt('$'+Copy(H,1,2)));
end;