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 (http://img84.imageshack.us/img84/4057/newcanvasuk.jpg) of my diagram.

Will be grateful for any help!

[Robototes2412]

First:

Your question is very specific and will thought-out

Second: This is not a Delphi forum. People here that know delphi may help you, but its doubtful

This is a forum for the First Robotics Competitons (http://usfirst.org).

Sorry, but there's most likely no help here :(