Percorrer tabelas

//Para percorrer a tabela inteira use estes comandos:


Tabela.Open;
Tabela.First;
if not Tabela.Eof then {enquanto a tabela não estiver no fim faça}
repeat
{ seus comandos para a tabela }
Tabela.Next
until Tabela.Eof; {finaliza o programa ao final da tabela}