نمایش کاراکترهای فارسی در خواندن از json

برای نمایش فارسی مشکل دارم به صورت علامت سوال نمایش میده . لطفا راهنمایی . سپاس

procedure TForm1.Button2Click(Sender: TObject);

var

   JSonObject:TJSonObject;

   JSonValue:TJSonValue;

   st:string;

Begin

   st :=UTF8Encode( '{"data":{"records":[{"stname":"نمايشگاه","StId":1},{"stname":"  پارک","StId":2},{"stname":"تقي آباد","StId":3},{"stname":"پیروزی","StId  ":4},{"stname":"استقلال","StId":5}],"status":true}}');

   JSonObject := TJSonObject.Create;

   JsonValue:=JSonObject.ParseJSONValue( st);

   memo1.text:=( (JsonValue as TJSONObject).Get('data').JsonString.Value);

   JSonObject.Free;

end;

با کد زیر مشکل حل شد !

const

  Text ='{"data":{"records":[{"stname":"نمايشگاه","StId":1},{"stname":"  فلکه پارک","StId":2},{"stname":"تقي آباد","StId":3},{"stname":"طلاب","StId":4}  ,{"stname":"نخريسي","StId":5}],"status":true}}';

var

  JSONObject, JSONObject2, currcond: TJSONObject;

  arrayjson: TJSONArray;

  i:integer;

begin

  JSONObject := TJSONObject.ParseJSONValue(Text) as TJSONObject;

  JSONObject2 := JSONObject.GetValue('data') as TJSONObject;

  arrayjson := JSONObject2.GetValue('records') as TJSONArray;

  for i :=0 to arrayjson.Count-1 do

  begin

    currcond := arrayjson.Items[i] as TJSONObject;

    showmessage(currcond.GetValue('stname').Value);

  end;