Delphi DBGrid and Tchart

[max_22]

hi!I have a problem. There's the Access database embedded into dbrid using ADO.
In db there is a list of goods,quantity and countries where goods were produced

Now I have to build a diagram for db, for example for countries.

It works quite well but the diagram shows EVERY good, writes a country name and makes a column for each good.

I wonder if there's a way to make one column for each country.

procedure TForm4.BitBtn1Click(Sender: TObject);
var
m: array of string;
  bb: array of integer;
  I: integer;

begin
chart1.show;
  Chart1.Series[0].Clear;
   SetLength(m, Form2.adotable1.RecordCount);     // changes mas size
   SetLength(bb, Form2.adotable1.RecordCount);
   I := 0;
  while not  Form2.adotable1.Eof do
  begin
    if Form2.adotable1.FieldByName('country').AsString <> '' then
    begin
      m[i] := Form2.adotable1.FieldByName('country').AsString;
      bb[i] := 0;
      I := I + 1;
    end;
     form2.adotable1.Next;
  end;
  Form2.adotable1.First;
  I := 0;
  Form2.adotable1.First;
  while not Form2.adotable1.Eof do
  begin
    for I := 0 to length(m)-1 do   
      if m[i] = Form2.adotable1.FieldByName
        (Form2.DBGrid1.Columns.Items[4].DisplayName).AsString then
        bb[i] := bb[i] + Form2.adotable1.FieldByName
          (Form2.DBGrid1.Columns.Items[6].DisplayName).AsInteger;
    Form2.adotable1.Next;
  end;
  Form2.adotable1.First;
  for I := 0 to length(m)-1 do
    if m[i] <> '' then
    begin
      Chart1.Series[0].Add(bb[i], m[i], clTeeColor);
end;
end;

Here is the image of my diagram.

Will be grateful for any help!