在很多企业级应用程序中，使用JSON（JavaScript Object Notation）是很常见的。而在Delphi7中，要通过POST方式来发送JSON数据，可以通过以下步骤实现。

首先，需要使用IdHTTP组件来进行POST请求。使用下面的代码示例，可以简单地创建一个IdHTTP对象。

var
IdHTTP1: TIdHTTP;
begin
IdHTTP1 := TIdHTTP.Create(nil);

接下来，需要使用TStringStream和TJSONObject来创建JSON数据。以下是创建一个简单JSON对象的示例。

var
jsonString: string;
json: TJSONObject;
request: TStringStream;
begin
// Create JSON Object
json := TJSONObject.Create;
json.AddPair('id', '1');
json.AddPair('name', 'John Doe');
// Convert JSON to String
jsonString := json.ToString;
// Create Request Body
request := TStringStream.Create(jsonString, TEncoding.UTF8);
end;

请求体已经准备好了，现在可以使用POST方法将JSON数据发送到服务器。以下是使用POST方法发送JSON数据的示例代码。

var
response: string;
begin
try
response := IdHTTP1.Post('http://example.com/api/endpoint', request);
ShowMessage(response);
except
on E: Exception do
ShowMessage('Error: ' + E.Message);
end;
end;

通过以上步骤，就可以使用Delphi7来接收和发送JSON数据。