ayuda para poder generar al impresion de un tickes

[microbiano]

les comento como esta resulta que puse un Reporte con lo siguiente

1 banda de tipo : rbColumnHeader
1 banda de tipo: rbDetail
1 banda de tipo: rbTitle

el reporte esta enlazado a un adoquery, de tipo dinamico

bueno pues en la banda de tipo detalle puse un componente QRDTExt de nombre txtcantidad.

ahora bien en un boton para imprimir pongo el siguiente codigo.

Código Delphi [-]
procedure TFfactura.btn3Click(Sender: TObject);
begin

 if wfactura_a_imprimir<>0 then
  begin
    Application.CreateForm(TFticket, Fticket);
    Fticket.show;
   with Fticket.Qry_ticket do
    begin
      sql.Clear;
      SQL.Add('select * from facturaItem');
      sql.Add('where nofac=factura');
      Parameters.ParamByName('pfactura').Value:=wfactura_a_imprimir;
      try
       Open;
       if not Fticket.Qry_ticket.IsEmpty then
         begin
           while not Fticket.Qry_ticket.Eof do
           begin
            Fticket.txtcantidad.Caption:=FieldByname('cantidad').AsVariant;
            Fticket.Refresh;
             Next;
           end;
          Fticket.Preview;
          Fticket.Free;
         end;
       except
        on E:EOleException do
         begin
          MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
         end;
       end;
    end;  
  end;  
end;

se supone tendria que actualizar los datos del reporte pero me muestra el reporte en blanco