SendNonSecureISCL Example for Delphi

var
   vBuffer: OleVariant;
begin
   vBuffer:= 'Test ISCL';
   // number of bytes is 10 becuase the string has a terminating null character
   LEADDICOMNet1.SendNonSecureISCL(LEADDICOMNet1.hNet, vBuffer, 10);
end;