var
 s,s1,s2:string;
 x:integer;
 begin
  s:='=d0=9a=d0=b8=d1=80=d0=b5=d0=b9=d1=87=d1=83=d0=ba';
 while pos('=',s)<>0 do delete(s,pos('=',s),1);
 x:=1;
 s1:='';
 while x<length(s) do
  begin
    s1:=s1+chr(strtoint('$'+copy(s,x,2)));
    x:=x+2;
  end;
 s2:=Utf8ToAnsi(s1);
 showmessage(s2);
end;