Código Delphi
[-]
ItemIndex := 1;
if ItemIndex < STgrid.RowCount then
begin
QRLabel1.Caption := STgrid.Cells[0,ItemIndex];
QRLabel2.Caption := STgrid.Cells[0,ItemIndex];
QRLabel3.Caption := STgrid.Cells[0,ItemIndex];
end;
Inc(ItemIndex);
MoreData := ItemIndex <= STgrid.RowCount;
Si inicializas siempre ItemIndex, la última condición siempre se cumplirá, por lo tanto te generará páginas indefinidamente. La inicialización deberías ponerla en el evento BeforePrint del informe.