if ZConexionBD.Connected then ZConexionBD.Disconnect;
ZConexionBD.Database:=directorioBaseDatos+'Historico.sql';
ZConexionBD.Protocol:='sqlite-3';
ZConsultaBD.Connection:=ZConexionBD;
ZConexionBD.Connected:=TRUE;
comSQL:='SELECT CodigoTemporada'
+' FROM Temporadas'
+' WHERE Temporada="'+inttostr(t)+'-'+inttostr(t+1)+'"';
ZConsultaBD.SQL.Text:=comSQL;
ZConsultaBD.Open;
ct:=ZConsultaBD0.FieldByName('CodigoTemporada').AsInteger;
ZConsultaBD.Close;
comSQL:='SELECT CodigoArticulo'
+' FROM ArticuloTemporada'
+' WHERE CodigoTemporada='+inttostr(ct);
ZConsultaBD.SQL.Text:=comSQL;
ZConsultaBD.Open; ZConsultaBD.RecordCount; <-- ERROR