//VARRER_TABELA

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Tabela1->First();

while(!Tabela1->Eof)

{

//codigo desejado

Tabela1->Next();

}

}