CreateObject (Delphi)

//This sample will dynamically create a LEAD Dicom Kernel
//object and use it to unlock DICOM support

//global 
LEADDicomFactory1: TLEADDicomFactory; 
 
var
   szLic: String; 
   kernel: LEADDicomKernel; 
begin
   szLic:= 'LEADTOOLS OCX Copyright (c) 1991-2005 LEAD Technologies, Inc.'; 

   kernel:= LEADDicomFactory1.CreateObject ('LEADDicomKernel.LEADDicomKernel', szLic) as ILEADDicomKernel; 
   kernel.EnableMethodErrors:= False; 
   kernel.UnlockSupport (L_SUPPORT_DICOM, 'MyUnlockKey'); 
   if (kernel.IsSupportLocked (L_SUPPORT_DICOM)) Then
      ShowMessage('Unlock Failed!'); 
end;