Menulis Registry di Windows XP melalui Delphi 7

Sudah tahu apa itu registry?
Hm.. registry itu ibaratnya sebuah variabel yang mengendap di Sistem Operasi kita, dan nilainya tidak akan tereset walaupun komputer kita mati.
Kali ini saya mencoba membuat registry agar Windows otomatis menjalankan program saya ketika saya menghidupkan komputer.
Sekedar informasi, windows akan menjalankan program yang memiliki registry pada path registry ini:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Run

Oleh karena itu saya akan membuat registry yang memiliki nilai path dari program saya.
Cara membuatnya adalah sebagai berikut:

var reg:tregistry;
tempat:string;
begin
tempat:=Application.GetNamePath +Application.ExeName;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
try
IF reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\Run',true) then begin
reg.WriteString('Otomatis Jalan',tempat);
reg.CloseKey;
end;
finally
reg.Free;
end;
end;

Untuk melihat registry-nya masuk run (Windows+R) lalu ketikan:

regedit

selamat mencoba :)