SetEncryptKeyISCL Example for Delphi

   Key64 = Packed Record
      Value: Int64;
   end;

procedure TForm1.SetEncryptKeyISCLClick(Sender: TObject);
var
   key: Key64;
begin
   // use a 64 bit key value of 0123456789ABCDEF hex.
   key.Value:= $0123456789ABCDEF;
   LEADDICOMNet1.SetEncryptKeyISCL (LEADDICOMNet1.hNet, 1, key.Value);
   LEADDICOMNet1.SetIndexForEncryptISCL(LEADDICOMNet1.hNet, 1);
   ShowMessage('Index value is: ' + IntToStr(LEADDICOMNet1.GetIndexForEncryptISCL(LEADDICOMNet1.hNet)));
end;