построить диаграммы

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ExtCtrls, TeeProcs, TeEngine, Chart;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    StringGrid2: TStringGrid;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Button2: TButton;
    Chart1: TChart;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure StringGrid1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
//Обработка нажатия кнопки "Задать"
procedure TForm1.Button1Click(Sender: TObject);
//Размеры матрицы
var m,n:Integer;
begin
  m:=StrToInt(Edit1.Text);
  n:=StrToInt(Edit2.Text);
  //Устанавливаем размеры матрицы
  StringGrid1.ColCount := m;
  StringGrid1.RowCount := n;
end;
//Обработка кнопки "Пуск"
procedure TForm1.Button2Click(Sender: TObject);
//Вспомогательный массив с промежуточными значениями сумм элементов столбца
var tmp:array[0..32536] of Integer;
//Переменные счетчиков
  i,j,k:Integer;
//Вспомогательная переменная для промежуточной суммы,число строк и столбцов матрицы
  Sum,rL,cL:Integer;
begin
//Получение размера матрицы
  cL := StringGrid1.ColCount;
  rL := StringGrid1.RowCount;
//Начало подсчета
  for i:=1 to cL do begin
//Просмотр элементов столбца
     for j:=1 to rL do begin
//Начинаем составлять промежуточный массив сумм столбца
       Sum:=0;
       for k:=1 to rL do begin
        if not(j=k) then begin
          Sum:=Sum+StrToInt(StringGrid1.Cells[i-1,k-1]);
        end;
       end;
       tmp[j]:= Sum;
    end;
//Сравнение промежуточных сумм и элементов i-ого столюца
    for j:=1 to rL do begin
      k:= StrToInt(StringGrid1.Cells[i-1,j-1]);
//Если элемент матрицы больше промежуточной суммы, выводим его, иначе пишем "Нет"
      if k > tmp[j] then
        StringGrid2.Cells[i-1,0]:=IntToStr(k)
      else
        StringGrid2.Cells[i-1,0]:= 'Нет';
    end;
  end;
 
 
end;

Series1: TPieSeries;

Series1.AddPie()

Series2: TBarSeries;

 Series2.AddBar()