Delphi200是一款功能強大的開發工具，它可以幫助開發者快速搭建各種類型的應用程序。其中，json解析和處理是它的一大亮點。在Delphi200中，我們可以使用TJSONObject、TJSONValue、TJSONArray等類來方便地讀取和創建json數據。

var
jsonObj: TJSONObject;
deptArr: TJSONArray;
deptObj: TJSONObject;
begin
jsonObj := TJSONObject.Create;
jsonObj.AddPair('name', 'Lucy');
jsonObj.AddPair('age', TJSONNumber.Create(20));
deptArr := TJSONArray.Create;
deptObj := TJSONObject.Create;
deptObj.AddPair('deptName', 'IT部門');
deptObj.AddPair('deptCode', 1001);
deptArr.Add(deptObj);
deptObj := TJSONObject.Create;
deptObj.AddPair('deptName', 'HR部門');
deptObj.AddPair('deptCode', 1002);
deptArr.Add(deptObj);
jsonObj.AddPair('departments', deptArr);
end;

在上面的代碼中，我們定義了一個jsonObj對象，然后使用AddPair方法來添加鍵值對。其中，'name'和'age'都是字符串類型，而'age'所對應的值是一個數字類型的數據。

接著，我們又定義了一個deptArr數組對象，和兩個deptObj對象，并將它們的鍵值對添加到deptArr數組對象中。

最后，我們將deptArr數組對象添加到jsonObj對象中，完成了一個完整的json數據模型。