delphi IDHttp Post

procedure TForm1.Button1Click(Sender: TObject);
var
  T: TStringStream;
  ts: TStringList;
  SvrUrl, postUrl: string;

begin
  SvrUrl := 'http://app.25hours.cc:6077/webservice/25hours.asmx/StruUp';
  postUrl := '';
  ts := TStringList.Create;
  ts.Text := 'data={"ShopID":1,"SyncVer":200}';

  T := TStringStream.Create('', tencoding.UTF8);
  IdHTTP1.Post(SvrUrl + postUrl, ts, T);
  Memo1.Text := T.DataString;
end;