procedure Tfrm_Main.proSetInstallInfo; var Reg : TRegistry; begin Reg := TRegistry.Create; try try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\hPop', True); Reg.WriteString('Displayname', 'hPop'); Reg.WriteString('UninstallString', '"' + ExtractFileDir(hPopExe) + '\hPopUnInstall.exe' + '"'); except // end; finally FreeAndNil(Reg); end; end;..