Cargar un BDListBox

[LENOCB]

Hola
esto es lo que puse, y no sigue sin cargar nada, yo uso ADO, por ahí debe estar el tema, hay alguna forma que veas lo que hice ??

ADOQuery2.SQL.Text:='';
ADOQuery2.SQL.Text:='Select Nombre From TGrupos ';
ADOQuery2.Active:=True;

While (ADOQuery2.Eof) DO BEGIN
DBListBox1.Items.Add(ADOQuery2.Fields[0].Text);
ADOQuery2.Next;