[Mrak]

Код:

procedure TForm14.Button13Click(Sender: TObject);
var y: real;
    x: integer;
begin
chart1.visible:=false; // где-то раньше
Series1.Clear;
Series1.LinePen.Width:=2;
chart1.Title.Text.Clear;
chart1.Title.Text.Add('y=x^2-2x+1');
for x:=1 to 10 do
begin
  y:=x*x-2*x+1;
  Series1.AddXY(x, y, inttostr(x), clred );
end;

Chart1.SaveToBitmapFile(GetCurrentDir + '\diagramma.jpg');
end;

ну вот собственна)
осталось только добавить TCHART с series1, поставить его visible в false, на кнопку повешать этот код и... искать картинку в папке, где лежит exe-шник проекта