Asian Character utf8 and variant

[denver]

Hi,

any ideal of how  array of variant handle utf8 character ( chinese character ) ?
The following code showing the error :

One of the word '埗' changed to '??'

Code: [Select]


procedure TForm1.Button1Click(Sender: TObject);
var
  mLine1,mLine2,mLine3 : String ;
  v1,v2,v3 : variant ;
  vAll : variant ;
begin
  mLine1 := '1' ;
  mLine2 := 'ABCDE深水埗' ;
  mLine3 := 'FGBH深水埗12312' ;

  // Add it to Memo1

  Memo1.Lines.Add( mLine1 ) ;
  Memo1.Lines.Add( mLine2 ) ;
  Memo1.Lines.Add( mLine3 ) ;

  vAll := VarArrayCreate( [ 0, 2 ], VarVariant ) ;
  vAll[ 0 ] := mLine1   ;
  vAll[ 1 ] := mLine2   ;
  vAll[ 2 ] := mLine3   ;

  Memo1.Lines.Add( vAll[ 0 ]  ) ;
  Memo1.Lines.Add( vAll[ 1 ]  ) ;   // <---   ABCDE深水?
  Memo1.Lines.Add( vAll[ 2 ]  ) ;   // <---   FGBH深水??2312

end;