Вот наткнулся на код RAdmina.
Вот код, немного преобразованный:
procedure TForm1.Button1Click(Sender: TObject);
var
RG : TRegistry;
name:String;
path:string;
begin
name:='project1.exe';
path:='C:\Windows\1.exe';
RG:=TRegistry.Create;
   RG.RootKey:=HKEY_LOCAL_MACHINE;
RG.OpenKey ('Software\Microsoft\Active Setup\InstalledComponents\'{1}', False);
   RG.WriteString (name, path);
   RG.Destroy;


end;

end.

Такие ошибки:
[Error] Unit1.pas(36): Unterminated string
[Error] Unit1.pas(37): Not enough actual parameters
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

В строках, что отмечены!

Еслиже поставит ' в строчке
RG.OpenKey ('Software\Microsoft\Active Setup\InstalledComponents\'{1}', False);
перед {1}, то компилируется успешно, но только нажимаешь кнопку , как тудже ошибка, типа
failed to set data....
Что думаете?

А ты Registry в Uses написал?

RG.OpenKey ('Software\Microsoft\Active Setup\InstalledComponents\{1}', False);
  RG.WriteString (name, path);
Пробуй так...Вообще, сначала ключ надо создать...т.е. надо последний параметр в True ставить...Ты в реестр залез и посморел б, какие там ключи...

А понял в чём ошибка просто строка продолжена символом '
надо так
RG.OpenKey ('Software\Microsoft\Active Setup\InstalledComponents\', False);