[Alloc]

Alegun, я конечно благодарен Вам за ответ, но вот свои предрассудки и нравоучения оставьте пожалуйста при себе.

Вот как сделал я, может кому пригодится:

Код:

var
  Registry: TRegistry;
  tsr: tsearchrec;
  WinDir : String;
begin
  WinDir := GetEnvironmentVariable('WinDir');
  Registry := TRegistry.Create;
  Registry.RootKey := HKEY_LOCAL_MACHINE;
  Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce',False);

  if FindFirst('I386\SVCPACK\TWEAKS\*.reg',faAnyFile,tsr) = 0 then
    repeat
      Registry.WriteString('Tweak_' + tsr.Name,WinDir+'\System32\Tweaks\'+tsr.Name);
    until FindNext(tsr) <> 0;

  Registry.CloseKey;
  Registry.Free;
  FindClose(tsr);