Jak w Delphi przypisać klucz do sprzętu, by zabezpieczyć aplikację demo?

function ID: string;
var
   VolumeSerialNumber : DWORD;
   MaximumComponentLength : DWORD;
   FileSystemFlags : DWORD;
   SerialNumber : string;
begin
  GetVolumeInformation ( 'C:', nil, 0, @VolumeSerialNumber, MaximumComponentLength, FileSystemFlags, nil, 0 );
  SerialNumber := IntToHex( HiWord( VolumeSerialNumber ), 4 ) +  IntToHex( LoWord( VolumeSerialNumber ), 4 );
  Result := SerialNumber;
  form1.edit1.text := result;

end;

var  // These are all needed for the WMI querying process 
  Locator:  ISWbemLocator; 
  Services: ISWbemServices; 
  SObject:  ISWbemObject; 
  ObjSet:   ISWbemObjectSet; 
  SProp:    ISWbemProperty; 
  Enum:     IEnumVariant; 
  Value:    Cardinal; 
  TempObj:  OleVariant; 
  SN: string; 

{
 You need the WbemScripting_TLB unit, which you can create by installing the type library
 <Windows System32>\wbem\wbemdisp.tlb type library using the "Project|Import type library" menu option.
}

function TForm1.GetWMIstring (wmiHost, wmiClass, wmiProperty : string):string; 
var  // These are all needed for the WMI querying process 
  Locator:  ISWbemLocator; 
  Services: ISWbemServices; 
  SObject:  ISWbemObject; 
  ObjSet:   ISWbemObjectSet; 
  SProp:    ISWbemProperty; 
  Enum:     IEnumVariant; 
  Value:    Cardinal; 
  TempObj:  OleVariant; 
  SN: string; 
begin 
  try 
  Locator := CoSWbemLocator.Create;  // Create the Location object 
  // Connect to the WMI service, with the root\cimv2 namespace 
   Services :=  Locator.ConnectServer(wmiHost, 'root\cimv2', '', '', '','', 0, nil); 
  ObjSet := Services.ExecQuery('SELECT * FROM '+wmiClass, 'WQL', 
    wbemFlagReturnImmediately and wbemFlagForwardOnly , nil); 
  Enum :=  (ObjSet._NewEnum) as IEnumVariant; 
  while (Enum.Next(1, TempObj, Value) = S_OK) do 
  begin 
    SObject := IUnknown(tempObj) as ISWBemObject; 
    SProp := SObject.Properties_.Item(wmiProperty, 0); 
    if VarIsNull(SProp.Get_Value) then 
      result := '' 
    else 
    begin 
      SN := SProp.Get_Value; 
      result :=  SN; 
    end; 
  end; 
  except // Trap any exceptions (Not having WMI installed will cause one!) 
   on exception do 
    result := ''; 
   end; 
end; 

Memo1.Text := getWMIstring('','Win32_BIOS','SerialNumber');