🚀 go-pugleaf

Hi

I have a multithreaded application, i want to dynamically create a
TADOStoredProc and Add Data,
i have a stored procedure on SQL Server 2000.
Also this stored procedure requires parameters.
this is how my code looks.

       if (ADOStrdProc != NULL)
       {
         delete ADOStrdProc;  // it stops here and never returns.
       }
       ADOStrdProc = new TADOStoredProc(NULL);
       ADOStrdProc->Close();
       ADOStrdProc->Connection = Poll->pADOCon1;  // this is the
adoconnection for thread Poll.
       ADOStrdProc->Parameters->Items[0]->Value = trans->priority;
       ADOStrdProc->Parameters->Items[0]->Value = trans->cattype;
       ADOStrdProc->Parameters->Items[0]->Value = trans->stno;
       ADOStrdProc->Parameters->Items[0]->Value =
DateTimeToStr(trans->SysDate);
       ADOStrdProc->Parameters->Items[0]->Value = trans->number;
       ADOStrdProc->Parameters->Items[0]->Value = trans->xstat;
       ADOStrdProc->Parameters->Items[0]->Value = trans->xfac;
       ADOStrdProc->Parameters->Items[0]->Value = trans->id;
       ADOStrdProc->Parameters->Items[0]->Value = trans->sType;
       ADOStrdProc->Parameters->Items[0]->Value = trans->sDesc;
       ADOStrdProc->Parameters->Items[0]->Value = trans->sName;
       ADOStrdProc->Parameters->Items[0]->Value = trans->nArch;
       ADOStrdProc->Parameters->Items[0]->Value = trans->nOper;
       ADOStrdProc->Parameters->Items[0]->Value = DateTimeToStr(Now());
       ADOStrdProc->Parameters->Items[0]->Value = trans->bPend;
       ADOStrdProc->Parameters->Items[0]->Value = trans->Resp;
       ADOStrdProc->Parameters->Items[0]->Value = trans->Sphere;
       ADOStrdProc->Parameters->Items[0]->Value = trans->Tag;
       ADOStrdProc->ExecProc();
       delete ADOStrdProc;

can someone help what i am doing wrong.

Thanks in Advance

Arun