IsImplementVersion Example for Delphi

var
   strVersion: String;
begin
   if(LEADDICOMNet1.IsImplementVersion (LEADDICOMNet1.hPDU) = True)then
   begin
      //disable it
      //display old value
      strVersion:= LEADDICOMNet1.GetImplementVersion (LEADDICOMNet1.hPDU);
      ShowMessage(strVersion);
      LEADDICOMNet1.SetImplementVersion (LEADDICOMNet1.hPDU, False, strVersion);
   end
   else
   begin
      //enable it
      LEADDICOMNet1.SetImplementVersion (LEADDICOMNet1.hPDU, True, 'v13.0');
      strVersion:= LEADDICOMNet1.GetImplementVersion (LEADDICOMNet1.hPDU);
      ShowMessage(strVersion);
   end;
end;