KI-ChatBot-Komponente

uses
  sgcAI, sgcAI_OpenAI, sgcAI_OpenAI_Audio_ChatBot,
  sgcAI_AudioRecorder_MCI, sgcAI_TextToSpeech_System;

var
  ChatBot: TsgcAIOpenAIChatBot;
  Recorder: TsgcAudioRecorderMCI;
  TTS:      TsgcTextToSpeechSystem;
begin
  Recorder := TsgcAudioRecorderMCI.Create(nil);
  TTS      := TsgcTextToSpeechSystem.Create(nil);

  ChatBot := TsgcAIOpenAIChatBot.Create(nil);
  ChatBot.OpenAIOptions.ApiKey := 'sk-...';
  ChatBot.AudioRecorder := Recorder;
  ChatBot.TextToSpeech  := TTS;

  ChatBot.OnAudioStart     := ChatBotAudioStart;
  ChatBot.OnAudioStop      := ChatBotAudioStop;
  ChatBot.OnTranscription  := ChatBotTranscription;
  ChatBot.OnChatCompletion := ChatBotChatCompletion;

  ChatBot.Start;  // begin microphone capture; Stop ends it

  // You can also push a turn programmatically:
  ChatBot.ChatAsUser('Tell me a joke about Delphi');
end;

procedure TForm1.ChatBotChatCompletion(Sender: TObject;
  const Role, Content: string);
begin
  memoLog.Lines.Add(Role + ': ' + Content);
end;