TStringGrid not showing UNICODE character set, showing اردو ویکیپیڈیا as ? ?

See more:

Delphi

Unicode

Hi, I have a TStringGrid; When am writing in the grid, it is showing ????? ????? instead of showing و ویکیپیڈیا .

The string which I am setting in TStringGrid is in Unicode, as if I can show it via messagebox;

Following code setting unicode string:

with frmhook.sg do begin
          if Cells[1,1] <> '' then RowCount := RowCount + 1;
          i := 0;
          inc(i); Cells[i,RowCount-1] :=strDataType;
          inc(i); Cells[i,RowCount-1] :=strDocument;

The string strDataType is fine, If I put a messagebox there it is showing correct one , but in TStringGrid it is ????????


Can any one help?

Thanks