[[Caral]]

Hola
Por favor corrigeme pero creo que funcionaria asi tambien:

Código Delphi [-]
procedure TFTodos.BFiltrarClick(Sender: TObject);
 
 begin
   IBQInformes.Close;
   IBQInformes.Sql.Clear;
   if Cbvencidos.Checked=true then
    begin
      IBQInformes.SQL.Add(' SELECT * FROM Telas INNER JOIN Descripcion ');
      IBQInformes.SQL.Add(' ON Telas.Descripcion1 = Descripcion.Descripcion ');
      IBQInformes.SQL.Add(' Where Telas.FECHA_PROMETIDA > "'+ DateToStr(Now) +'"');
      IBQInformes.Open;
    end;
 end;

Con relacion a lo otro totalmente de acuerdo con tigo, gracias por la acotacion.
Saludos