void __fastcall TForm3::qr1NeedData(TObject *Sender, bool &MoreData)
{
static int i = 0 //aqui iguales al primer valor que quieres que tome i
//y este valor solo se pone la primera vez, la siguiente vez
//que se llame a esta funcion, "recordara" el valor anterior
MoreData = i < Form1->sg->RowCount;
if (MoreData)
{
QRLabel1->Caption=Form1->sg->Cells[1][i];
QRLabel2->Caption=Form1->sg->Cells[2][i];
QRLabel3->Caption=Form1->sg->Cells[3][i];
QRLabel4->Caption=Form1->sg->Cells[4][i];
QRLabel5->Caption=Form1->sg->Cells[5][i];
QRLabel6->Caption=Form1->sg->Cells[6][i];
QRLabel7->Caption=Form1->sg->Cells[7][i];
}
i++;
}