KI-Übersetzer

uses
  sgcAI, sgcAI_OpenAI, sgcAI_OpenAI_Audio_Translator,
  sgcAI_AudioRecorder_MCI, sgcAI_TextToSpeech_System;

var
  Translator: TsgcAIOpenAITranslator;
begin
  Translator := TsgcAIOpenAITranslator.Create(nil);
  Translator.OpenAIOptions.ApiKey := 'sk-...';
  Translator.AudioRecorder := TsgcAudioRecorderMCI.Create(nil);
  Translator.TextToSpeech  := TsgcTextToSpeechSystem.Create(nil);

  Translator.OnAudioStart  := TranslatorAudioStart;
  Translator.OnAudioStop   := TranslatorAudioStop;
  Translator.OnTranslation := TranslatorTranslation;

  // Press to speak in any language; the audio is sent to Whisper,
  // translated to English, then spoken back through TTS.
  Translator.Start;
end;