Query.Close;
Query.SQL.Clear;
Query.SQL.Add('SELECT * FROM COMPANIA');
Query.SQL.Add('WHERE FECHADEVENCIMIENTO BETWEEN :FECHA_INI AND :FECHA_FIN');
Query.ParamByName('FECHA_INI').AsDate := DateTimePicker1.Date;
Query.ParamByName('FECHA_FIN').AsDate := DateTimePicker2.Date;
Query.Open;