Ler uma Tabela inteira

tabela.Fisrt;
while not tabela.Eof do
begin
-------
-------
tabela.Next;
end;

eu preciso fazer isto usando uma Query
Por Ex.
Select * from tabela

E daí ler todos os registros deste resultado.
Acho que não havia explicado direito. Desculpa

Grato

Olá,

use a mesma forma da outra resposta, apenas usando a query.

Query1.Fisrt;
while not Query1.Eof do
begin
-------
-------
Query1.Next;
end;


Atenciosamente,


Silvio Guedes.

Estou tentando mover os dados de um campo de uma consulta Sql para um componente, o primeiro registro eu consigo,
mas o no segundo da este erro:
Project Teste.exe raised exception class EListError with message ´list index out of bounds(1)´. Process Stopped.
O meu código é este:
Q1.Close;
Q1.Open;
Q1.First;
i := 0;
While true do
begin
CheckListbox1.Items.Add(Q1.Fields[0].AsString);
try
Q1.Next;
i := i + 1;
except
break;
end;
Onde o comando SQL é : Select cod from Teste.
Grato