AI Import

uses BI.AI, BI.DataItem;

var
  Data: TDataItem;
  
// Import from Google Gemini
Data := TBIAI.From(
  'Give me the list of the highest 10 mountains by elevation in csv format',
  TBIAI.TAgent.Gemini,
  'your_api_key_here'
);

BIGrid1.Data := Data;
BIChart1.Data := Data;

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

Data := TBIAI.From(
  'List top 20 countries by GDP in CSV format',
  TBIAI.TAgent.Gemini,
  'YOUR_GEMINI_API_KEY'
);

Data := TBIAI.From(
  'Generate sales data for 12 months in CSV format',
  TBIAI.TAgent.ChatGPT,
  'YOUR_OPENAI_API_KEY'
);

Data := TBIAI.From(
  'Create a table of planets with their properties',
  TBIAI.TAgent.Grok,
  'YOUR_GROK_API_KEY'
);

class function From(
  const Question: String;      // Natural language query
  const Agent: TAgent;         // AI service to use
  const Key: String            // Your API key
): TDataItem;

Data := TBIAI.From(
  'Give me a list of US states with population and area in CSV format',
  TBIAI.TAgent.Gemini,
  ApiKey
);

Data := TBIAI.From(
  'Generate monthly revenue data for a SaaS company, 2023-2024, in CSV',
  TBIAI.TAgent.ChatGPT,
  ApiKey
);

Data := TBIAI.From(
  'List chemical elements with symbol, atomic number, and atomic mass in CSV format',
  TBIAI.TAgent.Gemini,
  ApiKey
);

Data := TBIAI.From(
  'Top 50 NBA players by career points scored, CSV format',
  TBIAI.TAgent.Grok,
  ApiKey
);

Data := TBIAI.From(
  'Generate 100 random customer records with name, email, city, country in CSV',
  TBIAI.TAgent.ChatGPT,
  ApiKey
);

// Good
'List top 10 movies by box office revenue in CSV format'

// Not ideal
'List top 10 movies by box office revenue'

Data := TBIAI.From(
  'Create a table with columns: Product, Price, Category, Stock. ' +
  'Generate 50 sample electronics products in CSV format',
  TBIAI.TAgent.Gemini,
  ApiKey
);

Data := TBIAI.From(
  'Top 20 programming languages by popularity in CSV format, ' +
  'just the data table, no explanations',
  TBIAI.TAgent.Gemini,
  ApiKey
);

uses BI.AI;

var
  Data: TDataItem;
  
try
  Data := TBIAI.From(
    'List Fortune 500 companies in CSV',
    TBIAI.TAgent.Gemini,
    ApiKey
  );
  
  if Data <> nil then
    BIGrid1.Data := Data
  else
    ShowMessage('No data returned');
    
except
  on E: EBIAI do
    ShowMessage('AI Error: ' + E.Message);
end;

uses BI.AI, BI.Query;

var
  RawData, Summary: TDataItem;
  
// Get data from AI
RawData := TBIAI.From(
  'Sales data for 12 months with product categories',
  TBIAI.TAgent.Gemini,
  ApiKey
);

// Analyze it
Summary := TBISQL.From(
  RawData,
  'sum(Sales) group by Category'
);

BIChart1.Data := Summary;

procedure TForm1.ButtonQueryClick(Sender: TObject);
var
  Data: TDataItem;
begin
  if Edit1.Text = '' then
    Exit;
    
  Screen.Cursor := crHourGlass;
  try
    Data := TBIAI.From(
      Edit1.Text + ' in CSV format',
      TBIAI.TAgent.Gemini,
      FApiKey
    );
    
    BIGrid1.Data := Data;
    BIChart1.Data := Data;
    
  finally
    Screen.Cursor := crDefault;
  end;
end;

```csv
Name,Age,City
John,30,NYC
Jane,25,LA

Becomes:

## API Keys

### Security

<Warning>
  Never hardcode API keys in your source code. Use configuration files or environment variables.
</Warning>

```pascal
// Good - from config
var
  IniFile: TIniFile;
  ApiKey: String;
  
IniFile := TIniFile.Create('config.ini');
try
  ApiKey := IniFile.ReadString('AI', 'GeminiKey', '');
finally
  IniFile.Free;
end;

// Bad - hardcoded
ApiKey := 'AIzaSyC...';

var
  LastCallTime: TDateTime;
  
if SecondsBetween(Now, LastCallTime) < 2 then
  Sleep(2000); // Wait 2 seconds between calls
  
Data := TBIAI.From(Query, Agent, ApiKey);
LastCallTime := Now;

// Generate test data instantly
Customers := TBIAI.From(
  'Generate 100 customer records with realistic data',
  TBIAI.TAgent.Gemini,
  Key
);

MarketData := TBIAI.From(
  'List S&P 500 companies by market cap, top 100',
  TBIAI.TAgent.ChatGPT,
  Key
);

PeriodicTable := TBIAI.From(
  'Complete periodic table with all properties in CSV',
  TBIAI.TAgent.Gemini,
  Key
);

unit AIQueryForm;

interface

type
  TFormAI = class(TForm)
    MemoQuery: TMemo;
    ButtonExecute: TButton;
    ComboAgent: TComboBox;
    EditApiKey: TEdit;
    BIGrid1: TBIGrid;
    BIChart1: TBIChart;
    
    procedure ButtonExecuteClick(Sender: TObject);
  end;

implementation

uses BI.AI, BI.DataItem;

procedure TFormAI.ButtonExecuteClick(Sender: TObject);
var
  Agent: TBIAI.TAgent;
  Data: TDataItem;
begin
  // Determine agent
  case ComboAgent.ItemIndex of
    0: Agent := TBIAI.TAgent.Gemini;
    1: Agent := TBIAI.TAgent.ChatGPT;
    2: Agent := TBIAI.TAgent.Grok;
  end;
  
  // Execute query
  try
    Screen.Cursor := crHourGlass;
    
    Data := TBIAI.From(
      MemoQuery.Lines.Text + ' in CSV format',
      Agent,
      EditApiKey.Text
    );
    
    // Visualize
    BIGrid1.Data := Data;
    BIChart1.Data := Data;
    
  finally
    Screen.Cursor := crDefault;
  end;
end;

end.