uses 
 Registry;    var 
 Reg: TRegistry;    begin
 Reg:=TRegistry.Create; 
 Reg.RootKey:=HKEY_LOCAL_MACHINE;
 Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
 Reg.WriteString('notepad','c:\windows\notepad.exe');
 Reg.CloseKey;
 Reg.Free;
end;