SetAuthDataISCL Example for Delphi

//Example 1
var
   vBuffer: OleVariant;
begin
   vBuffer:= 'Server LEAD ISCL';
   LEADDICOMNet1.SetAuthDataISCL(LEADDicomNet1.hNet, vBuffer, 16);
end;
//Example 2: Binary Data
var
   DataArray: OleVariant;
begin
   VarArrayCreate([0, 4], varByte);
   DataArray[0]:= $21;
   DataArray[1]:= $14;
   DataArray[2]:= $0;
   DataArray[3]:= $45;
   DataArray[4]:= $F4;
   LEADDICOMNet1.SetAuthDataISCL(LEADDICOMNet1.hNet, DataArray, 5);
end;