Query, FielByName, tchart

mam sobie taki kod, za pomoca ktorego chcialbym narysowac wykres tylko mam problem bo na wyniku dostaje ciagle ta sama wartosc a zapytanie select w znajdujace sie w tej petli na pewno daje rozne wartosci sprawdzalem poza petla. Moze jest ktos w stanie mi podpowiedziec gdzie jest problem z gory dzieki.

for k:=0 to i-1 do
begin
zQuery2.FieldByName('count').Clear;
zapytanieSelect('select count(+scombobox2.Items.Strings[k]+) from badania where (oddzial = + scombobox1.Text +)and (data_badania like + sedit1.Text+'%'+);',zQuery2);

wynik:=zQuery2.FieldByName('count').AsString;
//Add (strtoint(wynik), scombobox2.Items.Strings[k], clRed);

memo1.Lines.Add(wynik);

end;

Oczywiscie nie mam tu tresci kodu do komponentu Tchart chodzi mi tylko o wynik memo z reszta sobie poradze

zquery2.next musisz dodac aby przejsc do nastepnego rekordu i lepiej to zrobic tak

zQuery2.Open;
zQuery2.first;
while not zQuery2.eof do
begin
...
  zQuery2.next;
end;

Dzieki za podpowiedz poradzilem sobie w taki sposob wykres fajny otrzymalem a problem byl taki ze do tej zmiennej juz wczesniej mialem przypisana fukcje jeszcze raz i tak dzieki za pomoc

with form8.Series1 do
begin
clear;
form8.series1.ColorEachPoint:=true;
for k:=0 to i-1 do
begin
wynik:='';
zapytanieSelect('select count(+scombobox2.Items.Strings[k]+) from badania where (izolowany_szczep = + scombobox2.Items.Strings[k] +)and (oddzial = + scombobox1.Text +)and (data_badania like +sedit1.Text+'%'+);',zQuery2);

wynik:=zQuery2.FieldByName('count').AsString;
Add (strtoint(wynik), scombobox2.Items.Strings[k]);

end;
end;
form8.show;
end;