dbgrid de filterlenmiş ve order edilmiş kaydın dbchart a ak.

[kazimates]

dbgride daha once sıralaması karışık yapılmış olan bir kaydı
with ADOQuery17 do
begin
close;
sql.clear;
sql.add('select * from URETIMTABLE WHERE (KULAKNO=:kulno2) order by TESTTARIHI asc');
Parameters.ParamByName('kulno2').Value:=Edit12.Text;
active:=True;
end;

ile aktarıyorum ve baktığım zaman dbgridde tarihe gore sıralanmış olduğunu görüyorum.

daha sonra buradaki kayıtları dbchart a aktarmak istiyorum
DBChart1.Series[0].Clear;
DBChart1.Series[1].Clear;
DBChart1.Series[2].Clear;
DBChart1.Series[3].Clear;
DBChart1.Series[4].Clear;
DBChart1.Series[5].Clear;
DBChart1.Series[6].Clear;
DBChart1.Series[7].Clear;
DBChart1.Series[8].Clear;
DBChart1.Series[9].Clear;
ADOUretimTable.Active:=False;
ADOUretimTable.Active:=True;
DBChart1.LeftAxis.Title.Caption:='Süt Lt.';

with ADOQuery4 do
begin
close;
sql.clear;
sql.add('select * from URETIMTABLE where (LACT=0) and (KULAKNO=:kulno) order by TESTTARIHI asc ');
Parameters.ParamByName('kulno').Value:=Edit12.Text;
active:=True;
topkay0:=recordcount;
end;

if topkay0=0 then
begin
DBChart1.SeriesList[0].Active:=False;
end
else
begin
for i:=1 to topkay0 do
begin
DBChart1.SeriesList[0].Addy((ADOURETIMTABLE.FieldByName('SUT')).AsInteger);
ADOUretimTable.Next;
end;
end;

//*********************************//

with ADOQuery5 do
begin
close;
sql.clear;
sql.add('select * from URETIMTABLE where (LACT=1) and (KULAKNO=:kulno1)order by TESTTARIHI asc');
Parameters.ParamByName('kulno1').Value:=Edit12.Text;
active:=True;
topkay1:=recordcount;
end;
if topkay1=0 then
begin
DBChart1.SeriesList[1].Active:=False;
end
else
begin
for i:=1 to topkay1-1 do
begin
DBChart1.SeriesList[1].Addy((ADOURETIMTABLE.FieldByName('SUT')).AsInteger);
ADOUretimTable.Next;
end;
end;

fakat dbchart da yanlış sıralama yapıyor bunu acaba nasıl düzltebiliriz?

[kazimates]

var
i,topkay:integer;
begin
DbChart1.Series[0].Clear;
DbChart1.Series[1].Clear;

with ADOQuery3 do
begin
close;
sql.clear;
sql.add('select * from URETIMTABLE where KULAKNO=4343232 and LACT=0 order by TESTTARIHI asc');
active:=true;
topkay:=recordcount
end;
DBChart1.Title.Text.Clear;
DBChart1.Title.Text.Add ('SÜT LAKTASYON ÇİZELGESİ');
DBChart1.LeftAxis.Title.Caption := 'SÜT lt.';

Edit1.Text:=inttostr(topkay);
ADOUretimTable.Filter:=ADOQuery3.Sort;
ADOUretimTable.Filtered:=True;
for i:=1 to topkay do
begin
DBChart1.SeriesList[0].Addy((ADOURETIMTABLE.Fieldbyname('SUT')).asinteger);
ADOUretimTable.Next;
end;

diye yazdığım zaman dbgridde filtre edilmiş olan değerlerin haricinde öncesinde filtre edilen değerlerde dbchartda gözüküyor bunu nasıl önleyebiliriz?