CreateAssociate Example for Delphi

   //create the Associate Class as Request
   LEADDICOMNet1.CreateAssociate (True);
   //set the Associate to the default
   LEADDICOMNet1.DefaultAssociate (LEADDICOMNet1.hPDU);
   ShowMessage('Associate Request? ' + BoolToStr(LEADDICOMNet1.IsRequest(LEADDICOMNet1.hPDU)));
   //reset the Associate class to Accept
   LEADDICOMNet1.ResetAssociate (LEADDICOMNet1.hPDU, False);
   //set the Associate to the default
   LEADDICOMNet1.DefaultAssociate (LEADDICOMNet1.hPDU);
   ShowMessage('Associate Request? ' + BoolToStr(LEADDICOMNet1.IsRequest(LEADDICOMNet1.hPDU)));
   //free the Associate class
   LEADDICOMNet1.FreeAssociate (LEADDICOMNet1.hPDU);