Delphi5是一款老牌的编程工具，虽然已经过时了，但是在一些项目中还是存在的。在与其他应用程序进行数据交互时，处理JSON格式数据是很常见的操作。在Delphi5中，使用SuperObject组件可以很方便地解析JSON格式的数据。

首先需要下载 SuperObject 组件，下载地址为 https://github.com/Hsiaoshen/SuperObject 。下载完成后，将下载的文件解压缩，将其中的 superobject.pas 文件拷贝至 Delphi5 安装目录下的 Lib 文件夹中。然后在工程中的 USES 中添加 SuperObject 模块。

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, superobject;

下面是一个示例代码：

procedure TForm1.Button1Click(Sender: TObject);
var
JSON: ISuperObject;
str: string;
begin
str := '{"name":"Tom","age":18,"pets":[{"name":"dog","age":3},{"name":"cat","age":2}]}';
JSON := TSuperObject.ParseString(str);
ShowMessage('name: ' + JSON.S['name'] + #13#10 +
'age: ' + IntToStr(JSON.I['age']) + #13#10 +
'pets[0].name: ' + JSON.A['pets'][0].S['name'] + #13#10 +
'pets[0].age: ' + IntToStr(JSON.A['pets'][0].I['age']) + #13#10 +
'pets[1].name: ' + JSON.A['pets'][1].S['name'] + #13#10 +
'pets[1].age: ' + IntToStr(JSON.A['pets'][1].I['age']));
end;

以上示例代码中，将一个 JSON 格式的字符串解析为 SuperObject 类型的对象，并通过访问对象的属性获取 JSON 中的各个值。在实际应用中，可以将 JSON 格式的字符串从网络或者本地文件中读取，然后使用 SuperObject 解析，获得其中的数据。