Bueno aquí esta la estructura de código que utilizo...
Código Delphi.
--------------------------------------------------------------------------------
Código Delphi
[-]
procedure TFrmMConsultas.Button1Click(Sender: TObject);
begin
Dmodulo.ADOQuery1.Close;
Dmodulo.ADOQuery1.SQL.Clear;
Dmodulo.ADOQuery1.Sql.Add('Select * From Empleados ');
Dmodulo.ADOQuery1.Sql.Add('Where estadocivil = '+QuotedStr(Combobox1.Text));
Dmodulo.ADOQuery1.Open;
if Dmodulo.ADOQuery1.eof then
begin
if application.messagebox('Registros no encontrados','Salir',mb_yesno+mb_iconquestion)=idyes then
CLOSE;
end else
begin
QrListado.preview;
end;
end;
end.
--------------------------------------------------------------------------------
Aún no me funciona...