Me desaparecen los datos....

[salvanano]

Buenas tardes gente...

Tengo un problemilla a la hora de imprimir.

Tengo una ventana en la cual visualizo datos de una tabla a través de un Query. Y un botón en el cual previsualizo los datos en un Quickreport.

Mientras mantengo la venta donde visualizo los datos, si cambio de registros, se me previsualizan correctamente. El problema llega cuando cierro esa ventana y no salgo de la aplicación, cuando vuelvo a abrir la ventana e intentar previsualizar los datos estos no me salen.

Alguna idea de porque me ocurre esto?

Este es el código del Boton para previsualizar:

Código Delphi [-]
//CARGO LOS DATOS EN LA TABLA AUXILIAR PARA LA IMPRESION
Query1.Last;
For i:= 1 To Query1.RecordCount do
begin
Table4.Insert;
        if Query1.FieldByName('Cantidad').AsFloat = 0 then
        begin
        Table4.FieldByName('Cantidad').AsString:= '';
        Table4.FieldByName('Usum').AsString:= '';
        Table4.FieldByName('Total').AsString:= '';
        Table4.FieldByName('Descripcion').AsString:= Query1.FieldByName('Descripcion').AsString;
        Table4.FieldByName('Precio').AsString:= '';
        end else
        begin
        Table4.FieldByName('Cantidad').AsString:= FormatFloat(',0.00',Query1.FieldByName('Cantidad').AsFloat);
        Table4.FieldByName('Usum').AsString:= Query1.FieldByName('USUM').AsString;
        Table4.FieldByName('Descripcion').AsString:= Query1.FieldByName('Descripcion').AsString;
        Table4.FieldByName('Precio').AsString:= FormatFloat(',0.00',Query1.FieldByName('Precio').AsFloat);
        Table4.FieldByName('Total').AsString:= FormatFloat(',0.00', Query1.FieldByName('Cantidad').AsFloat * Query1.FieldByName('Precio').AsFloat);
        end;

Table4.Post;
Query1.Prior;
end;
//COMPRUEBO LAS CERTIFICACIONES PARA EL REPORTE
If Table1.FieldByName('Certificaciones').AsFloat = 0 then
begin
//MUESTRO LOS VALORES
Form10.QRLabel2.Caption:= 'IVA ' + FloatToStr(Table1.FieldByName('IvaAplica').AsFloat) + '% . . .';
Form10.QRLabel1.Caption:= Edit5.Text;
Form10.QRLabel4.Caption:= Edit6.Text;
Form10.QRLabel5.Caption:= Edit1.Text;
Form10.QRLabel6.Caption:= fecha;
Form10.QuickRep1.Preview;
end else
begin
//MUESTRO LOS VALORES
total:= Table1.FieldByName('total').AsFloat;
certificacion:= FormatFloat('#,##0.00',Table1.FieldByName('Total').AsFloat - Table1.FieldByName('Certificaciones').AsFloat);
Form11.QRLabel2.Caption:= certificacion;
Form11.QRLabel3.Caption:= 'IVA ' + FloatToStr(Table1.FieldByName('IvaAplica').AsFloat) + '% . . .';
Form11.QRLabel4.Caption:= Edit5.Text;
Form11.QRLabel5.Caption:= FormatFloat('###,###,##0.00', total*1.16 - Table1.FieldByName('Certificaciones').AsFloat);
Form11.QRLabel6.Caption:= 'RETENCION ' + FloatToStr(Table1.FieldByName('Retencion').AsFloat) + '% . . .';
Form11.QRLabel7.Caption:= Edit4.Text;
Form11.QRLabel8.Caption:= Edit6.Text;
Form11.QRlabel10.Caption:= Edit1.Text;
Form11.QRLabel11.Caption:= fecha;
Form11.QuickRep1.Preview;
end;