Código Delphi
[-]
TObras.Filtered := False;
TObras.Filter := 'cod_expo = ' + QuotedStr(Edit1.Text);
TObras.Filtered := True;
ShowMessage(Tobras.Filter); FListadoObras.QuickRep1.PreviewModal;
FListadoObras.Close;
En el OnClose del Formulario que contiene QuickReport
Código Delphi
[-]
Application.ProcessMessages;
FreeAndNil(QuickRep1);
Action:=CaFree;
Un Saludo.