sigo con el problema de impresion

[microbiano]

resulta que ahora tengo otro reporte el cual en un form muestro los datos en:
1. dbgrid
2.-txt

y un boton de impresion el cual tiene el siguiente codigo:

Código Delphi [-]
procedure TForm_requerimiento.btnBimprimirClick(Sender: TObject);
var i:Integer;
begin
  if wregistros_resumen>0 then
    begin
  Application.CreateForm(TQuick_report_asig, Quick_report_asig);
 //Form_requerimiento.Qry_resumen.Refresh;
  with Form_requerimiento.Qry_resumen do
    begin
      First;
      while not Form_requerimiento.Qry_resumen.Eof do
        begin
          Quick_report_asig.txt_lic_detalle.DataField:=Form_requerimiento.Qry_resumen.fieldByname('licitacion'  ).AsString;
          Quick_report_asig.txt_licitacion.DataField:=Form_requerimiento.Qry_resumen.fieldByname('licitacion')  .AsString;
          Quick_report_asig.txt_licitacion.DataField:=Form_requerimiento.Qry_resumen.fieldByname('licitacion')  .AsString;

          Form_requerimiento.Qry_resumen.Next
        end;
    end;
  Quick_report_asig.Preview;
  Quick_report_asig.Free;
 end
 else
  begin
    Application.MessageBox('No Existen Datos para poder llevar a cabo la impresión'+chr(13)+'debe aplicar criterios para oder llevar a cabo una busqueda',PChar(Application.Title), MB_OK + MB_ICONERROR);
    Exit;
  end;

me abre el reporte pero no me muestra nada de informacion algunas sugerencia?