SetCalled Example for Delphi

   //set called application title
   LEADDICOMNet1.SetCalled(LEADDICOMNet1.hPDU, 'Called Program');
   //set calling application title
   LEADDICOMNet1.SetCalling(LEADDICOMNet1.hPDU, 'Calling Program');
   //display the current values
   ShowMessage(LEADDICOMNet1.GetCalled(LEADDICOMNet1.hPDU));
   ShowMessage(LEADDICOMNet1.GetCalling(LEADDICOMNet1.hPDU));