Delphi XE2: UTF16LE -> UTF8

URL : http://www.gagalive.kr/livechat1.swf?chatroom=~~~BBQ

[1]-------------------------------------------------------------------

procedure TForm1.FormCreate(Sender: TObject);
 
 begin
 
  IdTCPClient.Host := '61.97.246.131';
 
   IdTCPClient.Port := 8080;
 
   IdTCPClient.Connect;
 
   IdTCPClient.IOHandler.Write('Ag8m' + Char(0));
 
   IdTCPClient.IOHandler.Write('LShady|###BBQ' + Char(0));
 
   IdTCPClient.IOHandler.Write('#' + 'Some Text'  + Char(0));
 
   IdTCPClient.Disconnect;
 
 end;
 

---

[2]-------------------------------------------------------------------

function UTF8FromUTF16_2(sUTF16: UnicodeString): UTF8String; 
 
 begin   
 
   Result := sUTF16; 
 
 end; 
 
 procedure TForm1.FormCreate(Sender: TObject);
 
 begin
 
  IdTCPClient.Host := '61.97.246.131';
 
   IdTCPClient.Port := 8080;
 
   IdTCPClient.Connect;
 
   IdTCPClient.IOHandler.Write('Ag8m' + Char(0));
 
   IdTCPClient.IOHandler.Write('LShady|###BBQ' + Char(0));
 
   IdTCPClient.IOHandler.Write(UTF8FromUTF16_2('#' + '??'  + Char(0)));
 
   IdTCPClient.Disconnect;
 
 end;
 

---

[1] : working

[2] : not working (string broken > Shady: ??)

See : http://www.gagalive.kr/livechat1.swf?chatroom=~~~BBQ

UTF8FromUTF16 function Original VB Code : VB 6.0 -> Delphi XE2 Conversion

Help me.. :(

---