OpenAI Translator

uses
  sgcAI, sgcAI_OpenAI_Audio_Translator,
  sgcAI_AudioRecorder_MCI, sgcAI_TextToSpeech_System;

var
  oTranslator: TsgcAIOpenAITranslator;
begin
  oTranslator := TsgcAIOpenAITranslator.Create(nil);
  oTranslator.OpenAIOptions.ApiKey := 'sk-...';
  oTranslator.AudioRecorder := sgcAudioRecorderMCI1;
  oTranslator.TextToSpeech  := sgcTextToSpeechSystem1;

  // 1. transcribe, 2. translate the text with a chat model
  oTranslator.TranslatorOptions.Translation.Model := 'gpt-transcribe';
  oTranslator.TranslatorOptions.Translation.ChatModel := 'gpt-6-luna';
  oTranslator.TranslatorOptions.Translation.Language := 'Spanish';
  oTranslator.OnTranslation := TranslatorTranslation;

  oTranslator.Start;   // Stop ends the session
end;

procedure TForm1.TranslatorTranslation(Sender: TObject;
  var Text: string; var Accept: Boolean);
begin
  memoLog.Lines.Add(Text);
  Accept := True;   // set False to skip speaking this segment
end;