GetPeerAuthDataISCL Example for Delphi

var
 buf: OleVariant;
   nLen: Integer;
begin
   LEADDICOMNet1.GetPeerAuthDataISCL (LEADDICOMNet1.hNet, buf, nLen);
   ShowMessage('1st byte of data = ' + buf[0] + ', last byte of data = ' + buf[nLen - 1]);
end;