impresion de TstringGrid

[microbiano]

hola encotre en el foro este codigo que al parecer imprime el contenido de un TStringGrid.

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;

pues bien resulta que ya lo puse en un boton pero no funciona de plano no me arroja ningun eror, ni mensaje, y para variar no me muestra el reporte jejeje.


de antemano muchas gracias por que creo que ultimamente me he vuelto muy pregunto jejeje pero eso indica que se debe a que estoy trabjando en lo que me gusta ;-)