CloseForced Example for Delphi

   LEADDICOMNet1.NetworkSecurityMode:= Integer(DICOM_SECURE_ISCL);
   LEADDICOMNet1.StartUp ();
   // do some communications
   LEADDICOMNet1.CloseForced (LEADDICOMNet1.hNet, True);