DELPHI, baza mysql i wypisywanie wartości do listbox'a!

Witam, jestem laikiem jeśli chodzi o programowanie i moje użycie języków jest raczej sporadyczne.

Mam problem z poniższą pętlą, która wypisuje mi wartości z bazy danych do listbox'ów 1 i 2. Za pierwszym razem przy wyborze wartości 'itemindex=2' wypisuje mi całą kolumnę do listbox'ów poprawnie. Gdy po raz drugi wybieram tą samą wartość w combobox'ie to wypisuje mi do listboxów wartość tylko z ostatniego wiersza, ale nie pojedynczą, lecz w ilości tylu wierszy ile jest w danej bazie danych.

Proszę o pomoc. Piszę mały program, aby ułatwić sobie pracę i jestem zblokowany.

Odpowiedzi szukałem w różnych miejscach, nic nie znalazłem.

begin
  if  form1.ComboBox1.ItemIndex=2 then
      begin

i:=1;

while i <= ZQuery3.RecordCount do
      begin
        producent:=ZQuery3.FieldValues['NAZWA PRODUCENTA'];
        bariera:=ZQuery3.FieldValues['TYP BARIERY'];
        Form1.ListBox1.Items.Add(producent);
        Form1.ListBox2.Items.Add(bariera);
        ZQuery3.Next();
        i:=i+1;
      end;

end;

ZQuery3.First;
while not ZQuery3.EoF do
begin
  //tu to co chcesz zrobić
  ZQuery3.Next;
end;

BTW opieranie się na RecordCount to bardzo zły pomysł

Bardzo dziękuję, problem z głowy.

Pozdrawiam.