Deve haver uma forma mais automatizada, de converter... mas criei uma rotina... veja se dá certo... (projeto com fontes, em anexo)
function TForm1.Convert(AData: String): String;
var
BinaryStr: AnsiString;
WideStr: WideString;
LenData, i: Integer;
B1, B2: Byte;
begin
BinaryStr := '';
LenData := Length(AData);
i := 1;
while i < LenData do
begin
B2 := StrToInt('$' + copy(AData, i , 2));
B1 := StrToInt('$' + copy(AData, i+2, 2));
BinaryStr := BinaryStr + AnsiChr(B1)+AnsiChr(B2) ;
Inc(i, 4) ;
end ;
LenData := Trunc(Length(BinaryStr)/2);
SetLength(WideStr, LenData);
StrLCopy(PWideChar(WideStr), PWideChar(BinaryStr), LenData*2);
Result := String(WideStr);
end;
Converte.zip