Правда несколько коряво.

Параметры запуска (между параметрами пробел):
"Имя сервера"
"Имя базы данных"
"Имя таблицы"
"Поле таблицы по Y"
"Поле таблицы по X"
"Тип графика = B > Bar (столбики) ; L > Line (линия)"
"Название файла (без расширения) и полный путь куда сохранить (.jpg)"
"Высота графика - Integer"
"Ширина графика - Integer"
Например:
C:\...\Project1.exe "Server" "Basa" "Table" "Field1" "Field2" "L" "c:\grf" "400" "600"
**************************************************************
Файл сохраняется в .jpg
****************************************************


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, jpeg, ADODB, TeEngine, Series, TeeProcs, Chart,
StatChar, Clipbrd,
Db, DBChart;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
jpg: TJpegImage;
con: TADOConnection;
qr: TADOQuery;
dbch: TDBChart;
SeriesL: TLineSeries;
SeriesB: TBarSeries;
b: TBitmap;
begin
con:=TADOConnection.Create(Application);
con.Connected:=False;
con.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;'+
'Persist Security Info=False;Initial '+
'Catalog='+ParamStr(2)+';Data Source='+ParamStr(1);
con.LoginPrompt:=False;
con.Connected:=True;
qr:=TADOQuery.Create(Application);
qr.Connection:=con;
qr.SQL.Clear;
qr.SQL.Add('Select '+ParamStr(4)+','+ParamStr(5)+' From '+ParamStr(3));
dbch:=TDBChart.Create(Self);
dbch.Visible:=False;
dbch.Parent:=Form1;
dbch.BackColor:=clWhite;
dbch.Color:=clWhite;
dbch.Height:=StrToInt(ParamStr(8));
dbch.Width:=StrToInt(ParamStr(9));
if UpperCase(ParamStr(6)) = 'L' then
begin
SeriesL:=TLineSeries.Create(dbch);
SeriesL.Assign(SeriesL);
SeriesL.SeriesColor:= clBlue;
dbch.AddSeries(SeriesL);
SeriesL.ParentChart:=dbch;
SeriesL.DataSource:=qr;
SeriesL.YValues.ValueSource:=ParamStr(4);
SeriesL.XValues.ValueSource:=ParamStr(5);
SeriesL.Active:=True;
end;
if UpperCase(ParamStr(6)) = 'B' then
begin
SeriesB:=TBarSeries.Create(dbch);
SeriesB.Assign(SeriesB);
SeriesB.SeriesColor:= clBlue;
dbch.AddSeries(SeriesB);
SeriesB.ParentChart:=dbch;
SeriesB.DataSource:=qr;
SeriesB.YValues.ValueSource:=ParamStr(4);
SeriesB.XValues.ValueSource:=ParamStr(5);
SeriesB.Active:=True;
end;
qr.Active:=True;
dbch.CopyToClipboardBitmap;
jpg:=tjpegimage.create;
b:=tbitmap.create;
if clipboard.HasFormat(cf_bitmap) then begin
b.assign(clipboard);
jpg.assign(b);
jpg.CompressionQuality:=100;
jpg.Compress;
jpg.SaveToFile(ChangeFileExt(PChar(ParamStr(7)),'.jpg'));
end;
jpg.free;
qr.Active:=False;
qr.Free;
con.Connected:=False;
con.Free;
dbch.FreeAllSeries();
dbch.Free;
Halt;
end;

end.