如何使用Delphi XE5接入OpenAI？

要使用Delphi XE5接入OpenAI，可以按以下步骤进行操作：

1. 在OpenAI网站上创建一个帐户并获取API密钥。

2. 使用Delphi XE5创建一个新项目。

3. 添加Rest.Json单元到项目中。

4. 创建一个TRESTClient对象并设置BaseURL为OpenAI API的URL。

5. 创建一个TRESTRequest对象并设置RequestMethod为GET或POST，具体取决于您要调用的API方法。

6. 为请求添加必要的参数和请求头。

7. 执行请求并处理响应。

以下是一个示例代码片段，其中包含了上述步骤的实现：

uses
  Rest.Json;

var
  RestClient: TRESTClient;
  Request: TRESTRequest;
  Response: TJSONValue;
begin
  RestClient := TRESTClient.Create('https://api.openai.com/v1/');
  Request := TRESTRequest.Create(RestClient);
  Request.Resource := 'completions';
  Request.Method := rmPOST;
  Request.Params.AddItem('prompt', 'Hello world', pkGETorPOST);
  Request.Params.AddItem('model', 'text-davinci-002', pkGETorPOST);
  Request.Params.AddItem('temperature', '0.5', pkGETorPOST);
  Request.Params.AddItem('max_tokens', '100', pkGETorPOST);
  Request.Params.AddItem('n', '1', pkGETorPOST);
  Request.Params.AddItem('stop', '.', pkGETorPOST);
  Request.Params.AddItem('echo', 'false', pkGETorPOST);
  Request.Params.AddItem('stream', 'false', pkGETorPOST);
  Request.Params.AddItem('user', '123456', pkGETorPOST);
  Request.AddHeader('Authorization', 'Bearer YOUR_API_KEY_HERE');
  Request.Execute;
  Response := TJSONObject.ParseJSONValue(Request.Response.ContentAsString);
  // Do something with the response
end;

请注意，此示例代码只是一个简单的演示。具体实现取决于您要调用的API方法和传递的参数。您需要参考OpenAI API文档以获取更多信息。