怎么将十六进制字符转换为中文？

Question

以下十六进制字符串，需要将它转换为UTF8格式再转换为中文，或者转为base64再转UTF8，
E38096E887AAE6B8B8E4BABAE6B7B7E
688B0E69C8DE58B99E5B088E794A8E8AD8FE3809
7E38090E5BBA3E8A5BFE5B291E6BAAAE380915B432D445D这段就是转为base64后的代码
44CW6Ieq5ri45Lq65re35oiw5pyN5YuZ5bC
I55So6K2P44CX44CQ5buj6KW/5bKR5rqq44CRW0MtRF0=
 怎么将他们直接转换为中文呢？  我参考了一段代码，但是里面的TIdBase64Decoder组件我找不到，明明安装了Indy控件了。
 
function   Base64Decode(const   s:   string):   string; 
var 
    Coder:   TIdBase64Decoder; 
begin 
    Coder   :=   TIdBase64Decoder.Create(nil); 
    try 
        Coder.AddCRLF   :=   False; 
        Coder.UseEvent   :=   False; 
        Coder.Reset; 
        Coder.CodeString(s); 
        Result   :=   Copy(Coder.CompletedInput,   3,   MaxInt); 
    finally 
        FreeAndNil(Coder); 
    end; 
end; 
aa   :=   'TWljcm9zb2Z0IE9mZmljZSBPdXRsb29rIOa1i+ivlea2iOaBrw== '; 
bb   :=         Base64Decode(aa)   ; 
caption   :=       UTF8Decode(bb   )   ; 

Answer 1

function HexToStr(var src: string):string;
var
i: Integer;
begin
  for i:=0 to length(src) do begin
  if (i mod 2 =1)  then
    Result:=Result+char(strtoint('0x'+Copy(src,i,2)));
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  str:= 'E38096E887AAE6B8B8E4BABAE6B7B7E688B0E69C8DE58B99E5B088E794A8E8AD8FE38097E38090E5BBA3E8A5BFE5B291E6BAAAE380915B432D445D';
  showmessage(UTF8Decode(HexToStr(str)));
end;