Delphi アプリが、いま AI アプリケーションに

uses
  sgcHTTP_API_Anthropic;

procedure TForm1.Ask;
begin
  FClaude := TsgcHTTP_API_Anthropic.Create(nil);
  FClaude.AnthropicOptions.ApiKey := 'sk-ant-...';
  FClaude.AnthropicOptions.AnthropicVersion := '2023-06-01';
  FClaude.OnHTTPAPISSE := OnDelta;

  FClaude._CreateMessageStream('claude-3-5-sonnet-latest',
    'Summarise order 10248 for the customer.', 1024);
end;

procedure TForm1.OnDelta(Sender: TObject; const aEvent, aData: string;
  var Cancel: Boolean);
begin
  Memo1.Text := Memo1.Text + aData;
end;

using esegece.sgcWebSockets;

var claude = new TsgcHTTPAPI_Anthropic();
claude.AnthropicOptions.ApiKey = "sk-ant-...";
claude.AnthropicOptions.AnthropicVersion = "2023-06-01";

// every server-sent delta lands here as it is produced
claude.OnHTTPAPISSE += (sender, ev, data, cancel) => Console.Write(data);

claude._CreateMessageStream("claude-3-5-sonnet-latest",
    "Summarise order 10248 for the customer.", 1024);