procedure  SetProduct;
   var  Reg: TRegistry;
 begin 
  Reg := TRegistry.Create;
   with  Reg  do   begin 
    RootKey := HKEY_LOCAL_MACHINE;
     if  OpenKey( 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + Application.Title, True )
       and  ( ReadString( 'InstallDate' ) < FormatDateTime( 'yyyymmdd', GetBuildTime ))  then   begin 
        WriteString( 'Publisher', 'TSK Dev Lab');
        WriteString( 'DisplayName', Application.Title );
        WriteString( 'DisplayVersion', GetVersionInfo );
        WriteString( 'InstallDate', FormatDateTime( 'yyyymmdd', Now ));
       end ;
    CloseKey;
    Free;
   end ;
 end ;