TListBox: Out of bounds

[dpy232]

Hallo,
ich vermute, das es mal wieder eine ganz einfache Sache ist, aber nach längerem Suchen finde ich dazu keinen Tipp / Hinweis, der bei mir passen könnte.

Ich Habe eine TListBox die mit Namen gefüllt wird aus einer Datenbank. Sobald ich nicht auf einen Eintrag, sondern neben einen Eintag (in der TListBox) klicke, bekomme ich einen Exception mit "Out of bounds".
Ich habe bereits versucht den Fehler abzufangen, aber ohne großen Erfolg.

Delphi-Quellcode:

while not SQLQuery1.EOF do
begin
  LstBxAktiv.Items.Add(SQLQuery1.Fields[0].AsString);
  SQLQuery1.Next;
end;

Vielleicht hat jemand, eine Idee / Hinweis, wie diesen Fehler beheben kann, bzw. wo mein Fehler liegt.

Schönes Wochenende
Oliver