请使用delphi语言写一段使用chatGPT的代码。

很抱歉，我是一个自然语言生成模型，无法编写Delphi代码。但是，您可以使用Delphi编写一个调用ChatGPT API的程序，实现与ChatGPT的交互。以下是一个简单的示例：

uses
  WinInet;

function GetResponseFromChatGPT(query: string): string;
const
  API_URL = 'https://api.openai.com/v1/engines/davinci-codex/completions';
  API_KEY = 'your_api_key_here';
var
  hInte