Problema no resuleto.

[Jose_Pérez]

Queda así...

  For Contador:=Low(Agencias) To High(Agencias) Do
      Begin

      Ficha:=TfrmQRFactProvE.Create(Self);

      With Ficha.Query Do
           Begin
           Close;
           SQL.Clear;
           Consulta:='Select * from Linvales Where Agc_lval='+IntToStr(Agencias[Contador])+
                     ' And extract(month from Fec_lval)='+IntToStr(cboMes.ItemIndex+1)+
                     ' And extract(year from Fec_lval)='+IntToStr(cboYear.ItemIndex+1990)+
                     ' And fac_lval=0 Order by Num_lval';
           SQL.Add(Consulta);
           Open;
 
           End;

      If Not cbxPantalla.Checked Then
         Ficha.QuickReport.Print
         else
         Ficha.QuickReport.Preview;
  
      Ficha.Free;
      Application.ProcessMessages;
      End;

Siento la confusión...