SQL Ergebnis in Stringliste - Fehlersuche

[fillibuster]

Hallo,

ich habe hier eine fehlerhafte Prozedur, aber ich finde den Fehler nicht:

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject);
var
i:            integer;
sl:   TStringlist;
begin
  sl:=TStringlist.create;
  if query.Active then query.Active := false;
  for i := 0 to Listbox1.items.count - 1 do
  begin
    query.SQL.Text := 'SELECT article_id FROM translations where name=:name';
    query.ParamByName('name').AsString := listbox1.items[i];
    query.Open;
    while not query.eof do
    begin
      Sl.Add(query.FieldByName('article_id').AsString);
      query.next;
    end;
    query.Close;
    ShowMessage(intToStr(sl.count));//Einmal 874 und einmal 946
  end;
  ShowMessage(intToStr(sl.count));//946
  sl.Free;
end;

In der Listbox sind 2 Einträge, allerdings werden die Ergebnisse nicht alle in die Stringliste geschrieben, nur die von dem letzten Listboxeintrag? Wo wird diese zurückgesetzt .

Viele Grüße ...

Hilfe ...