AI 与机器学习集成

procedure TForm1.AskChatGPT;
begin
  sgcAIOpenAI1.ApiKey := 'sk-your-api-key';
  sgcAIOpenAI1.ChatCompletions.Model := 'gpt-4o';
  sgcAIOpenAI1.ChatCompletions.AddMessageUser('What is WebSocket?');
  sgcAIOpenAI1.ChatCompletions.CreateChatCompletions;
end;

procedure TForm1.sgcAIOpenAI1ChatCompletionsResponse(Sender: TObject;
  const Response: TsgcAIOpenAIChatCompletionsResponse);
begin
  Memo1.Lines.Add(Response.Choices[0].Message.Content);
end;

procedure TForm1.AskClaude;
begin
  sgcAIAnthropic1.ApiKey := 'sk-ant-your-api-key';
  sgcAIAnthropic1.Messages.Model := 'claude-sonnet-4-6-20250514';
  sgcAIAnthropic1.Messages.AddMessageUser('Explain WebSocket protocol');
  sgcAIAnthropic1.Messages.CreateMessages;
end;

procedure TForm1.sgcAIAnthropic1MessagesResponse(Sender: TObject;
  const Response: TsgcAIAnthropicMessagesResponse);
begin
  Memo1.Lines.Add(Response.Content[0].Text);
end;