Решение подсказал Serge_Bliznykov с другого форума. Вот оно:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var s, sr : AnsiString;
i : integer;
ws : widestring;
begin
s := 'd0 b2 d0 b0 d0 b4 d1 8f';
i := 1;
sr := '';
while i<Length(s) do begin
sr := sr + AnsiChar(StrToInt('$'+copy(s,i,2)));
Inc(i,3);
end;
ws := utf8decode(sr);
ShowMessage(ws);
end;