(Delphi ActiveX) Demonstrates Manual Tool Function Calls

See more AI Examples

Note: This example requires Chilkat v11.4.0 or greater.

For more information, see https://www.chilkatsoft.com/ai_tool_function_caling_briefly_explained.asp

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
jsonTools: TChilkatJsonObject;
toolIdx: Integer;
ai: TChilkatAi;
conversation_name: WideString;
sysMessage: WideString;
devMessage: WideString;
jsonFn: TChilkatJsonObject;
numFnCalls: Integer;
fn_idx: Integer;
sbFnName: TChilkatStringBuilder;
callId: WideString;
zodiac_sign: WideString;
applicationFnCallResult: WideString;
sbResponse: TChilkatStringBuilder;

begin
success := 0;

// Create the following JSON to define tool functions available for the AI to use.
// Note: You'll use the following JSON format regardless of the AI provider, whether
// it be ChatGPT, Gemini, Claude, Grok, etc.  Chilkat automatically converts to the required
// format needed for a given AI provider.

// In this example, the application is providing two functions the AI may choose to call.

// {
//   "tools": [
//     {
//       "name": "get_horoscope",
//       "description": "Get today's horoscope for an astrological sign.",
//       "parameters": {
//         "properties": {
//           "sign": {
//             "type": "string",
//             "description": "An astrological sign like Taurus or Aquarius"
//           }
//         }
//       }
//     },
//     {
//       "name": "get_compatibility",
//       "description": "Returns compatibility analysis between two zodiac signs, including a score and explanation.",
//       "parameters": {
//         "properties": {
//           "sign1": {
//             "type": "string",
//             "description": "The first zodiac sign (e.g., Aries, Taurus, Gemini)."
//           },
//           "sign2": {
//             "type": "string",
//             "description": "The second zodiac sign (e.g., Aries, Taurus, Gemini)."
//           },
//           "relationship_type": {
//             "type": "string",
//             "description": "Type of compatibility to evaluate. (e.g., romantic, friendship, professional, general)"
//           },
//           "detail_level": {
//             "type": "string",
//             "description": "Level of detail in the response. (e.g., short, medium, detailed)"
//           }
//         }
//       }
//     }
//   ]
// }

jsonTools := TChilkatJsonObject.Create(Self);

toolIdx := 0;

jsonTools.I := toolIdx;
jsonTools.UpdateString('tools[i].name','get_horoscope');
jsonTools.UpdateString('tools[i].description','Get today''s horoscope for an astrological sign.');
jsonTools.UpdateString('tools[i].parameters.properties.sign.type','string');
jsonTools.UpdateString('tools[i].parameters.properties.sign.description','An astrological sign like Taurus or Aquarius');

toolIdx := toolIdx + 1;
jsonTools.I := toolIdx;
jsonTools.UpdateString('tools[i].name','get_compatibility');
jsonTools.UpdateString('tools[i].description','Returns compatibility analysis between two zodiac signs, including a score and explanation.');
jsonTools.UpdateString('tools[i].parameters.properties.sign1.type','string');
jsonTools.UpdateString('tools[i].parameters.properties.sign1.description','The first zodiac sign (e.g., Aries, Taurus, Gemini).');
jsonTools.UpdateString('tools[i].parameters.properties.sign2.type','string');
jsonTools.UpdateString('tools[i].parameters.properties.sign2.description','The second zodiac sign (e.g., Aries, Taurus, Gemini).');
jsonTools.UpdateString('tools[i].parameters.properties.relationship_type.type','string');
jsonTools.UpdateString('tools[i].parameters.properties.relationship_type.description','Type of compatibility to evaluate. (e.g., romantic, friendship, professional, general)');
jsonTools.UpdateString('tools[i].parameters.properties.detail_level.type','string');
jsonTools.UpdateString('tools[i].parameters.properties.detail_level.description','Level of detail in the response. (e.g., short, medium, detailed)');

// More tools can be added as desired..

jsonTools.EmitCompact := 0;
Memo1.Lines.Add(jsonTools.Emit());

ai := TChilkatAi.Create(Self);

// Register the tools that will be made available to the AI.
ai.RegisterManualTools(jsonTools.ControlInterface);

// The provider can be "openai", "google", "claude", "grok", "mistral", "custom", etc.
ai.Provider := 'openai';
// Use your provider's API key.
ai.ApiKey := 'MY_API_KEY';
// Choose a model.
ai.Model := 'gpt-5-mini';

// Tool function calling must always occur within a conversation.
conversation_name := 'convo_astrology';
sysMessage := 'You are a helpful astrologer';
devMessage := 'Respond only with a horoscope generated by a tool. Use the tool output as the final answer.';
ai.NewConvo(conversation_name,sysMessage,devMessage);

// Provide inputs
ai.InputAddText('What is my horoscope? I am an Aquarius.');

// Send inputs, tool functions, etc. and ask for a "text" response.
success := ai.Ask('text');
if (success = 0) then
  begin
    Memo1.Lines.Add(ai.LastErrorText);
    Exit;
  end;

// Did the AI respond with requests for tool function calls?
if (ai.HasFunctionCalls = 1) then
  begin

    jsonFn := TChilkatJsonObject.Create(Self);
    jsonFn.EmitCompact := 0;

    ai.GetFunctionCalls(jsonFn.ControlInterface);
    Memo1.Lines.Add(jsonFn.Emit());

    // Note: Chilkat will convert responses from all AI providers to this format:

    // {
    //   "function_call": [
    //     {
    //       "name": "get_horoscope",
    //       "call_id": "call_RYmeysYQFocFc7Z2ofkv61dW",
    //       "arguments": "{\"sign\":\"Aquarius\"}",
    //       "args": {
    //         "sign": "Aquarius"
    //       }
    //     }
    //   ]
    // }

    numFnCalls := jsonFn.SizeOfArray('function_call');
    fn_idx := 0;
    while (fn_idx < numFnCalls) do
      begin
        jsonFn.I := fn_idx;

        sbFnName := TChilkatStringBuilder.Create(Self);
        jsonFn.StringOfSb('function_call[i].name',sbFnName.ControlInterface);
        callId := jsonFn.StringOf('function_call[i].call_id');

        if (sbFnName.ContentsEqual('get_horoscope',1) = 1) then
          begin

            // The get_horoscope function (as defined above) has one argument named "sign".
            zodiac_sign := jsonFn.StringOf('function_call[i].args.sign');
            Memo1.Lines.Add('zodiac_sign = ' + zodiac_sign);

            // Insert application code here to call your app's get_horoscope function, passing the zodiac_sign to it..

            // For this example, we'll pretend the app's get_horoscope function returned the following:
            applicationFnCallResult := 'Aquarius: Next Tuesday you will befriend a baby otter.';

            // Provide the tool call result as an input for the followup Ask.
            ai.InputAddFnResult(callId,applicationFnCallResult);
          end;
        // Your application would add code to check for and handle each possible function call.

        fn_idx := fn_idx + 1;
      end;

    // After making the requested tool function calls, send the results back to the AI.
    success := ai.Ask('text');
    if (success = 0) then
      begin
        Memo1.Lines.Add(ai.LastErrorText);
        Exit;
      end;
  end;

// Get the final AI response.
sbResponse := TChilkatStringBuilder.Create(Self);
ai.GetOutputTextSb(sbResponse.ControlInterface);
Memo1.Lines.Add(sbResponse.GetAsString());
end;