[rastafarey]

Aqui se mejor

Código Delphi [-]
Function StrToHex(Const pcStr: String): String;
Begin
  Result := '';
  if pcStr <> '' then Begin
    SetLength(Result, Length(pcStr) * 2);
    BinToHex(@pcStr[1], @Result[1], Length(pcStr));
  End;
End;

Function HexToStr(Const pcStr: String): String;
Begin
  Result := '';
  if pcStr <> '' then Begin
    SetLength(Result, Length(pcStr) Div 2);
    HexToBin(@pcStr[1], @Result[1], Length(pcStr));
  End;
End;