Schleife zum Ausgaben aller Werte einer DB

[Plague]

Hallo,

ich möchte alle Inhalte einer Datenbank in einem Listview ausgeben lassen.
Ich habe bis jetzt folgenden Quelltext dafür verwenden. Er werden jedoch nur der erste Datensatz ausgegeben.
Was ist falsch?
Wie bekomme ich alle anderen auf in mein Listview? Muss ich dafür eine Schleife benutzen? Wenn ja, wie?

Delphi-Quellcode:

Frame31.Query1.Active := false;
 Frame31.Query1.SQL.Clear;
 Frame31.Query1.SQL.Add('SELECT * FROM Benutzer');
 Frame31.Query1.Active := true;

 Frame31.ListView1.Items.Add.Caption := (Frame31.Query1.FieldByName('Benutzer').AsString);
 Frame31.ListView1.Items.Add.SubItems.Add(Frame31.Query1.FieldByName('Berechtigung').AsString);

Gruß
Thomas