[proshka]

Решение подсказал 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;