Delphi7 SuperObject used, SO the argument string format is wrong, would the memory error. How to avo-CodePudding

For example,
Procedure TForm1. Button26Click (Sender: TObject);
Var
SysTime: TsystemTime;
PStr: PChar;
S: a string;
jo: ISuperObject;
The begin
Jo: SO=(' {" MSGT ": 1," type ": 2} ');
ShowMessage (Jo. AsJSon);

end;
SO the parameter is right, everything, but if written
Jo: SO=(' {" MSGT ": 1," type ": 2 ');
Running can memory error,
For now, I'm single chip microcomputer development, USES his serial port to send data to the PC software, but not has been a standard serial data of the json format, there is interference may lead to error string, then the PC software can memory error, is very bad ~

Due to the development of embedded applications using a serial port monitoring data is more, so do your own small software is convenient to look ~ is not very good,