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 解析，獲得其中的數據。