Работа с реестром в дельфи

procedure TForm1.FormCreate(Sender: TObject);
var FileName : String;
begin
  FileName := '';
  if ParamCount = 1 then
  begin
    // если программа запущена по дв клику на
    // файле с расширением ассоциированном с ней
    // или присутсвуют доп параметры
    if ParamStr(1)='/install' then
    begin                         
      // проверям есть ли ключ для установки
      // если программа запущена, например
      // с:\Project1.exe /install
      // то выполняем ассоциацию 
      SetupExtension;                
    end else if ParamStr(1)='/uninstall' then
    begin
      // проверям есть ли ключ для удаления ассоциации
      // с:\Project1.exe /uninstall
      // то выполняем удаление из реестра информации
      // о нашей проге      
    end else
    begin
      // иначе, делаем предположение, что в параметре
      // командной строки путь к файлу
      // с:\Project1.exe d:\documents\file.typ
      FileName := ParamStr(1);
      // в FileName будет d:\documents\file.typ
    end;
  end                      
  else                                      
  begin
    // программа запущена по дв клику на исполнимом файле
  end;                         
                         
  // здесь в FileName путь к выбранному пользователем файлу
  // или пустая строка просто отображем что в этой переменной     
 
  ShowMessage(FileName);
end;

{$ifdef _WIN64}
reg:=Tregistry.Create($0100);
{$ELSE}
reg:=Tregistry.Create(KEY_ALL_ACCESS);
{$ENDIF}
 
if ParamStr(1)='' then begin
  reg.RootKey:=HKEY_CLASSES_ROOT;
  reg.OpenKey('*\shell\AddAutoRun\',true);
  reg.WriteString('','Äîáàâèòü â àâòîçàãðóçêó');
  reg.CloseKey;
 
  reg.OpenKey('*\shell\AddAutoRun\Command\',true);
  reg.WriteString('',NewName+' add %1');
  reg.CloseKey;
end;
 
 
if ParamStr(1)='add' then begin
  if exData(ParamStr(2)) then
    exit;
 
     reg.RootKey:=HKEY_CURRENT_USER;
     reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
     reg.WriteString(ExtractFileName(ParamStr(2)),ParamStr(2));
     reg.CloseKey;
     MessageBox(0,Pchar('Ôàéë '+ExtractFileName(ParamStr(2))+' óñïåøíî äîáàâëåí â àâòîçàãðóçêó, â'+#13#10+'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run'),'Óñïåõ',MB_OK)
end;
 
reg.Free;