DelphiAnthropic

DelphiAnthropic – Claude API Wrapper for Delphi

  

---

New

• changelog v1.2
• adaptive thinking
• fast mode

---

Two simple illustrative examples of synchronous text generation

[!TIP] To obtain an Anthropic API key, refer to https://platform.claude.com/account/keys

• Non-streamed example:

  // uses Anthropic, Anthropic.Types, Anthropic.Helpers;
  // Client: IAnthropic;
  
  var Client := TAnthropicFactory.CreateInstance('ANTHROPIC_API_KEY');
  
  //JSON payload
  var Payload: TChatParamProc :=
    procedure (Params: TChatParams)
    begin
      Params
        .Model('claude-sonnet-4-6')
        .Messages( Generation.MessageParts
            .User('From which version of Delphi were multi-line strings introduced?')
        )
        .MaxTokens(1024);
    end;
  
  //Synchronous example
  var Chat := Client.Chat.Create(Payload);
  
  try
    for var Block in Chat.Content do
      if Block.&Type = TContentBlockType.text then
        Memo1.Lines.Text := Memo1.Text + Block.Text;
  finally
    Chat.Free;
  end;
  

• Streamed example (SSE):

  // uses Anthropic, Anthropic.Types, Anthropic.Helpers;
  // Client: IAnthropic;
  
  //JSON payload
  var Payload: TChatParamProc :=
    procedure (Params: TChatParams)
    begin
      Params
        .Model('claude-opus-4-6')
        .Messages( Generation.MessageParts
            .User('Explain the discrete topology')
        )
        .Thinking( CreateThinkingConfig('adaptive') )
        .Stream;
    end;
  
  // Streaming callback
  var StreamEvent: TChatEvent :=
    procedure (var Event: TChatStream; IsDone: Boolean; var Cancel: Boo