Eingabe und Anzeigen von Daten [Delphi3 Pro+Zeos+Firebeird]

[Ati]

Ich verzweifele so langsam. Ich habe jetzt mein altes Projekt gelöscht und ganz von vorne angefangen. Ich kann Daten eingeben und auch löschen. Nur den Tabelleninhalt kann ich nicht anzeigen lassen. Wäre bitte einer mal so nett und könnte mir sagen wo ich den Fehler mache.

Delphi-Quellcode:

procedure TForm1.AbrufClick(Sender: TObject);
{var ListItem:TlistItem;}
begin
qrMain.Sql.Clear;
qrMain.Sql.Text:='SELECT * FROM vim;';
qrMain.Open;
while not qrMain.EOF do
begin
ListView1.Items.Add(qrMain.fieldbyname('nummer').asString);
ListView1.Items.Add(qrMain.fieldbyname('name').asString);
qrMain.Next
end;
end;