[microbiano]

hola quiero exportar el contenido de una consulta maestro detalle a una hoja de excel y lo hago mediante el siguiente codigo pero no logro imprimir el detalle de cada registro de maestro.

Código Delphi [-]
procedure TForm_requerimiento.btn2Click(Sender: TObject);
var Excel,libro:Variant;
i,i_det:Integer;
begin
   Excel:=CreateOleObject('Excel.Application');
   Excel.WorkBooks.Add (-4167);
   Excel.WorkBooks[1].WorkSheets[1].Name := 'Reporte';
   Libro := Excel.WorkBooks[1].WorkSheets['Reporte'];
   with Qry_resumen do
    begin
      First;
      i:=i+1;
      while not Qry_resumen.Eof do
        begin
          i:=i+1;
          Libro.Cells [1,1] := 'Licitación';
          Libro.Cells [1,2] := 'Zona';
          Libro.Cells [1,3] := 'Gpo';
          Libro.Cells [1,4] := 'Gen';
          Libro.Cells [1,5] := 'Esp';
          Libro.Cells [1,6] := 'dif';
          Libro.Cells [1,7] := 'Var';

          Libro.Cells [i,1] :=Qry_resumen.FieldByName ('licitacion').AsString;
          Libro.Cells [i,2] :=Qry_resumen.FieldByName ('zona').AsString;
          libro.Cells [i,3] :=Qry_resumen.FieldByName ('gpo').AsString;
          Libro.Cells [i,4] :=Qry_resumen.FieldByName ('gen').AsString;
          Libro.Cells [i,5] :=Qry_resumen.FieldByName ('esp').AsString;
          Libro.Cells [i,6] :=Qry_resumen.FieldByName ('dif').AsString;
          Libro.Cells [i,7] :=Qry_resumen.FieldByName ('var').AsString;
          with Qry_detalle do
            begin
             First;
             while not Qry_detalle.Eof do
              begin
               Libro.Cells [9,1] :=Qry_detalle.FieldByName ('licitante').AsString;
               Next;
              end;  
            end;
          Next;
        end;
          Excel.visible:=True; 
    end;

la consulta maestro tiene 4 registros y a su vez cada registro de maestro tiene 5 0 6 registros detalle lo que quiero en la hoja de excel seria

registro query maestro 1

y todos los registros detalle

celda en blanco

registro query maestro 2

y todos sus registros detalle


y asi hasta que termine con los registros de la consulta maestro.

alguna idea, de antemano muchas gracias