violation adress

[tazluz]

El problema es el siguiente: en una aplicacion utilizo un query para dar de alta y todo correcto, al actualizar la tabla con el query dinamico me provoca un error de violation de adrees xxxxx . y en tiempo de ejecucion me manda otro error ''la tabla no existe odbc de oracle" pero resulta que la tabla si existe, en la cual inserto antes de querer hacer update el codigo es el siguiente

Código Delphi [-]
   if BitBtnGuardar.Caption='&Modificar' then
    begin
      With DataModuleSubespec.QueryExp_Orbita  do
      begin
        Sql.Clear;
        Sql.Add('Update Expediente_Orbita Set ID_PACIENTE =:Param1,CVE_SERVICIO=:Param2,ID_MEDICO=:Param3,');
        Sql.Add('FECHA=:Param4,ATENDIDO=:Param5,SEC1_PADACT=:Param6,SEC1_HEREDOFA=:Param7,SEC1_APP=:Param8,'  );
        Sql.Add('SEC1_APNP=:Param9,SEC1_HEXT=:Param10,SEC1_OD_AV=:Param11,SEC1_OD_CONST=:Param12,SEC1_OI_AV=  :Param13,');
        Sql.Add('SEC1_OI_CONST=:Param14,SEC1_OD_QUERATOM=:Param15,SEC1_OI_QUERATOM=:Param16,SEC1_OD_COPT=:Pa  ram17,');
        Sql.Add('SEC1_OI_COPT=:Param18,SEC1_OD_LEJOS=:Param19,SEC1_OI_LEJOS=:Param20,SEC1_OD_AVL=:Param21,')  ;
        SQL.Add('SEC1_OI_AVL=:Param22,SEC1_OD_CERCA=:Param23,SEC1_OI_CERCA=:Param24,SEC1_OD_AVC=:Param25,');
        Sql.Add('SEC1_OI_AVC=:Param26,SEC1_OD_RPUPILA=:Param27,SEC1_OI_RPUPILA=:Param28,SEC1_OD_CROMATICO=:P  aram29,');
        Sql.Add('SEC1_OI_CROMATICO=:Param30,SEC1_OD_LUMINOSO=:Param31,SEC1_OI_LUMINOSO=:Param32,SEC1_OD_MOCU  L=:Param33,');
        SQL.Add('SEC1_OI_MOCUL=:Param34,SEC1_TONOME=:Param35,SEC1_APLANACION=:Param36,SEC1_SCH=:Param37,SEC1  _DIGITAL=:Param38,');
        Sql.Add('SEC1_DIGITEXTO=:Param39,SEC2_OBS_ORBITA=:Param40,SEC2_OBS_CORNIRIS=:Param41,SEC3_OBS_VITREO  =:Param42,');
        Sql.Add('SEC3_OBS_CPCRIS=:Param43,SEC5_EC_EXOF=:Param44,SEC5_EC_ECO=:Param45,SEC5_EC_TOMO=:Param46,'  );
        Sql.Add('SEC5_EC_ISHI=:Param47,SEC5_EC_EHISTOPATO=:Param48 Where id_paciente=aram49 and fecha=aram50');
        Params[0].AsString:=LabelId_paciente.Caption;Params[1].AsString:=cve_serv;
        Params[2].AsString:=FormLogin.Login; Params[3].AsString:=copy(Labelfecha.Caption,1,10);
        Params[4].AsString:='S';  Params[5].AsString:=MemoPadecimientoActual.Text;
        Params[6].AsString:=MemoHereditariosyFamiliares.Text; Params[7].AsString:= MemoPersonalesPatologicos.Text;
        Params[8].AsString:=MemoPersonalesnoPatologicos.Text;Params[9].AsString:=MemoHabitusExterior.Text;
        Params[10].AsString:=EditODAV.text;Params[11].AsString:=EditODConST.Text;
        Params[12].asstring:= EditOIAV.Text; Params[13].AsString:=EditOIConST.Text;
        Params[14].AsString:=EditODQueratom.Text;Params[15].AsString:=EditOIQueratom.Text;
        Params[16].AsString:=EditODCorreccionoptica.Text;Params[17].AsString:=EditOICorreccionoptica.Text;
        Params[18].AsString:=EditODLejos.Text; Params[19].AsString:=EditOILejos.Text;
        Params[20].AsString:=EditODLejosav.Text;Params[21].AsString:=EditOILejosav.Text;
        Params[22].AsString:=EditODCerca.Text; Params[23].AsString:=EditOICerca.Text;
        Params[24].AsString:=EditODCercaav.Text; Params[25].AsString:=EditOICercaav.Text;
        Params[26].AsString:=EditODRPupilares.Text;Params[27].AsString:=EditOIRPupilares.Text;
        Params[28].AsString:=EditODSCromatico.Text; Params[29].AsString:=EditOISCromatico.Text;
        Params[30].AsString:=EditODSLuminoso.Text;  Params[31].AsString:=EditODSLuminoso.Text;
        Params[32].AsString:=EditODMotOcular.Text;  Params[33].AsString:=EditOIMotOcular.Text;
        if CheckBoxAplanacion.State=cbChecked then   Params[34].AsString:='1' else  //tono
        if CheckBoxAplanacion.State=cbUnchecked then Params[34].AsString:='0';
        Params[35].AsString:=EditAplanacion.Text;
        if CheckBoxSHC.State=cbChecked then   Params[36].AsString:='1' else
        if CheckBoxSHC.State=cbUnchecked then Params[36].AsString:='0';
        if CheckBoxDigital.State=cbChecked then   Params[37].AsString:='1' else
        if CheckBoxDigital.State=cbUnchecked then Params[37].AsString:='0';
        Params[38].AsString:=EditDigital.Text;    Params[39].AsString:=MemoParpadoObservaciones.Text;
        Params[40].AsString:=MemoCorneaObservaciones.Text;  Params[41].AsString:=MemoPapilas.Text;
        Params[42].AsString:=MemoCamaraAnterior.Text; Params[43].AsString:=Memoexoftalmologia.Text;
        Params[44].AsString:=Memoecografia.Text;  Params[45].AsString:=Memotomografia.Text;
        Params[46].AsString:=Memoishiara.Text;  Params[47].AsString:=Memohistopato.Text;
        Params[48].AsString:=LabelId_paciente.Caption;  Params[49].AsString:=copy(Labelfecha.Caption,1,10);
        ExecSQL;
       end;

espero me puedan ayudar, en tiempo diseño me manda error violation acces (adrees) y en tiempo ejecucion me dice que la tabla no existe, y si existe trabajo con base de oracle y delphi6