[Delphi] Potrzebny kod - autostart/rejestr

Cześć,

Potrzebuje kod do delphi, który utworzy wpis w rejestrze oraz utworzy dany plik w danym folderze i z każdym uruchomieniem sie odpalał. Używam następującego kodu, lecz on tylko tworzy wpis, a nie tworzy pliku (przynajmniej u mnie tak jest), więc po co mi ten kod…:

procedure TForm1.FormCreate(Sender: TObject);

var

 Reg:TRegistry;

begin

 Reg := TRegistry.Create;

 Reg.RootKey := HKEY_LOCAL_MACHINE;  

 Try

   Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run\', True); //Jeśli tu dasz False klucz nie zostanie utoworzony (to prawda?)

   Reg.WriteString('Program', 'C:\Windows\moj_plik.exe');

 Finally

   Reg.CloseKey;

   Reg.Free;

 end;

end;

Chcę po prostu, żeby po odpaleniu pliku, plik dopisywał się do rejestru/autostartu i z każdym uruchomieniem komputera sie uruchamiał.

Pozdrawiam,

Fohrman.

Proszę nazwać temat konkretnie i poprawić w poscie błędy. Na forum piszemy po polsku. Inaczej temat zostanie usunięty.