Построение графиков и диаграмм Delphi

[Dima-91]

Здравствуйте, немагу сделать это задание:
Нужно построить диаграмму, для этого требуется взять значения из Stringrid1, Cells[4,i] где сравниваються 2 величины (точнее мужкой и женский пол).
Подскажите чем можете

[Stilet]

Ну так возьми. В чем проблема?

[Dima-91]

Проблема состоит в том, что мне нужно записать количество людей в диаграмму,
а также нужно ли вести подсчёт женского и мужкого пола, или можно взять расчёты из Form1.

[Dima-91]

Часть кода Form1.

procedure TForm1.Button6Click(Sender: TObject);
var p:boolean;
    i,j,k,k1:integer;
    s:string;
begin
//Обработка:
//Сортировка по полю пол:
 with StringGrid1 do begin
  repeat
      p:=true;
      for i:=1 to N-1 do
        if cells[4,i]>cells[4,i+1] then begin
          p:=false;
          for j := 1 to 4 do begin
            s:=cells[j,i];
            cells[j,i]:=cells[j,i+1];
            cells[j,i+1]:=s;
          end;
        end;
  until p;
  //Подсчет кол-во жен:
     k:=0;
     while cells[4,k+1]<>'муж' do inc(k);

  //Сортировка по полю диагноз для жен:
  repeat
      p:=true;
      for i:=1 to k-1 do
        if (cells[3,i]>cells[3,i+1]) then begin
          p:=false;
          for j := 1 to 4 do begin
            s:=cells[j,i];
            cells[j,i]:=cells[j,i+1];
            cells[j,i+1]:=s;
          end;
        end;
  until p;
  //Сортировка по полю диагноз для муж:
  repeat
      p:=true;
      for i:=k+1 to N-1 do
        if (cells[3,i]>cells[3,i+1]) then begin
          p:=false;
          for j := 1 to 4 do begin
            s:=cells[j,i];
            cells[j,i]:=cells[j,i+1];
            cells[j,i+1]:=s;
          end;
        end;
  until p;
  //нумерация палат:
  j:=1;
  k1:=0;
  for i := 1 to N do begin
    cells[2,i]:=inttostr(j);
    inc(k1);
    if (k1>4) or (cells[3,i]<>cells[3,i+1]) then begin
     inc(j);
     k1:=0;
    end;
  end;
 end;
end;

procedure TForm1.FormCreate(Sender: Tobject);
begin
//Начальные действия при создании формы.
//Подписи столбцов:
 With StringGrid1 do begin
   RowCount:=2;
   cells[0,0]:='  №';
   cells[1,0]:='  ФИО';
   cells[2,0]:='Номер палаты';
   cells[3,0]:='Диагноз';
   cells[4,0]:='   Пол';
   cells[0,1]:='1';
 end;
 N:=1;
 Label2.Caption:=inttostr(N);
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
Form2.ShowModal;
end;

end.

Есть небольшие догадки, пока что попробую их.

[Dima-91]

procedure TForm2.Button1Click(Sender: TObject);
 var o,z,k,i:integer;
begin
try
 series1.Clear;
 Chart1.Title.Text.Clear;
 Chart1.Title.Text.Add('Разделение по полу');
 with Form1.StringGrid1 do begin
  i:=0
   cells[4,i+1]<>'муж' do inc(i) ;
   k:=i;
   end;
 Label2.Caption:=Strtofloat(z);
 o:=z-k;
 Series1.addxy(o, k, ‘’, clGreen);



 except
   showmessage('Сначала введите данные!');
end;
   end;

end.

Подскажите пожалуйсто, что тут я не так делаю, и как в круговую диаграмму добавить значения?
P.S.:Думаю, что бы взять значения из 4 ячейки и сделать подсчёт "жен", после же из всего списка вычесть количество "жен", тем самым найдя количество "муж".