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;