TBIAI

TAgent = (Gemini, Copilot, ChatGPT, Grok);

class function From(const Question: String; const Agent: TAgent; const Key: String): TDataItem;

var
  Data: TDataItem;
begin
  Data := TBIAI.From(
    'Give me a list of the top 10 tallest mountains with their heights in meters',
    TBIAI.TAgent.Gemini,
    'YOUR_API_KEY_HERE'
  );
  
  // Visualize the data
  BIGrid1.Data := Data;
  BIChart1.Data := Data;
end;

var
  Data: TDataItem;
begin
  Data := TBIAI.From(
    'List of countries with population in CSV format, just the data',
    TBIAI.TAgent.Gemini,
    'YOUR_API_KEY_HERE'
  );
  
  ShowMessage('Rows: ' + IntToStr(Data.Count));
end;

// Google Gemini (recommended, free)
Data := TBIAI.From(
  'Top 5 programming languages',
  TBIAI.TAgent.Gemini,
  GeminiKey
);

// OpenAI ChatGPT
Data := TBIAI.From(
  'Sales data for 2024 by quarter',
  TBIAI.TAgent.ChatGPT,
  ChatGPTKey
);

// X Grok
Data := TBIAI.From(
  'Weather forecast for next week',
  TBIAI.TAgent.Grok,
  GrokKey
);

'Give me GDP data in CSV format'
'Return JSON with name, age, city fields'
'Table with columns: product, price, stock'

const
  // DON'T hardcode keys in source
  // MyKey = 'abc123...';  // WRONG!
  
var
  Key: String;
begin
  // Load from config file or environment
  Key := TSettings.LoadAPIKey;
  Data := TBIAI.From(Question, TAgent.Gemini, Key);
end;

var
  Data: TDataItem;
begin
  try
    Data := TBIAI.From(Question, Agent, Key);
    
    if (Data = nil) or (Data.Count = 0) then
      ShowMessage('No data returned')
    else
      ProcessData(Data);
  except
    on E: EBIAI do
      ShowMessage('AI Error: ' + E.Message);
  end;
end;

try
  Data := TBIAI.From(Question, TAgent.Gemini, APIKey);
except
  on E: EBIAI do
  begin
    // Handle specific AI errors
    if Pos('API Key', E.Message) > 0 then
      ShowMessage('Invalid API key')
    else if Pos('Empty response', E.Message) > 0 then
      ShowMessage('AI returned no data')
    else
      ShowMessage('Error: ' + E.Message);
  end;
end;