Version Example for Delphi

   // check the Associate Class version
   ShowMessage('Version: ' + IntToStr(LEADDICOMNet1.GetVersion (LEADDICOMNet1.hPDU)));
   //set the version
   LEADDICOMNet1.SetVersion (LEADDICOMNet1.hPDU, 99);
   ShowMessage('Version: ' + IntToStr(LEADDICOMNet1.GetVersion (LEADDICOMNet1.hPDU)));