Lectura secuencial con Tadoquery

[TOPX]

Hola,

Con cualquier descendiente de TDataset:

Código Delphi [-]
AdoQuery1.First;
while not AdoQuery1.Eof do
begin
  ShowMessage(AdoQuery1.Fields[0].AsString);
  AdoQuery1.Next;
end;