[Casimiro Notevi]

Más o menos...

Código Delphi [-]
  if ZConexionBD.Connected then ZConexionBD.Disconnect;
        ZConexionBD.Database:=directorioBaseDatos+'Historico.sql';
        ZConexionBD.Protocol:='sqlite-3';
        // cambiar de orden estas líneas
        ZConsultaBD.Connection:=ZConexionBD;
        ZConexionBD.Connected:=TRUE;
        //
        comSQL:='SELECT CodigoTemporada'
               +' FROM Temporadas'
               +' WHERE Temporada="'+inttostr(t)+'-'+inttostr(t+1)+'"';
        ZConsultaBD.SQL.Text:=comSQL;
        // ZConsultaBD.ExecSQL;  esta línea sobra
        ZConsultaBD.Open;
        ct:=ZConsultaBD0.FieldByName('CodigoTemporada').AsInteger;
        ZConsultaBD.Close;
        // ZConsultaBD.SQL.Clear;  no hace falta esta línea
        comSQL:='SELECT CodigoArticulo'
               +' FROM ArticuloTemporada'
               +' WHERE CodigoTemporada='+inttostr(ct);
        ZConsultaBD.SQL.Text:=comSQL;
        // ZConsultaBD.ExecSQL;  tampoco vale
        // es igual que la de arriba, con open :
        ZConsultaBD.Open;  // esta es la que debe ser        
        ZConsultaBD.RecordCount; <-- ERROR