OpenAi ChatGPT prosta biblioteka dla Delphi 12

Cześć, zrobiłem prostą bibliotekę dla Delphi 12 wraz z demo projektem.
Zastosowałem wątek w projekcie aby interfejs nie ścinał się podczas czekania na odpowiedź z serwera OpenAi.

Użycie

procedure TForm1.AskChatGpt;
var
  ChatGPT: TChatGPT;
begin
ChatGPT := TChatGPT.Create(Self);
  try
    ChatGPT.Token := 'Twój klucz API'; 
    ChatGPT.ChatModel := 'chatgpt-4o-latest'; // model GPT
    ChatGPT.OnResponse :=
      procedure(Response: string)
      begin
        MemoAnswer.Lines.Text := Response; // Odpowiedź wklei się do Memo
      end;

    ChatGPT.SendQuestionAsync(MemoAsk.Text); //Twoje zapytanie Memo
  except
    on E: Exception do
      ShowMessage('An error occurred: ' + E.Message);
  end;
end;

Kod biblioteki tu https://github.com/Programista-Art/Delphi12OpenAI

W GetIt jest gotowy moduł do tego jakby coś

Czy można skorzystać z ChatGPT bez prywatnego klucza (jak rozumiem uzyskam go po zarejestrowaniu się na stronie OpenAI)?
W sensie, czy jest jakiś publiczny, że nie trzeba się logować a mimo tego móc korzystać z zapytań?
-Pawel

Widziałem takie realizacje, ale w tym przypadku trzeba zarejestrować się https://platform.openai.com/docs/api-reference/introduction doładować konto na minimalnie 5$ wtedy klucz będzie działać. Aby utworzyć klucz trzeba przejść do Profile > User Api Keys(Legacy) > przycisk Create new secret key i wygenerowany klucz będzie działać w demo projekcie.