Auto execução do programa em Delphi via Registro

uses registry;

var reg:TRegIniFile;

procedure TForm1.FormCreate(Sender: TObject);

var

s,s2:string;

begin

Reg:=TRegIniFile.Create('LloydSoft');

{HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run}

S:=ExtractFileDir(Application.ExeName);

S2:=ExtractFileName(Application.ExeName);

S:=S+'\'+S2;

reg.RootKey:=HKEY_USERS;

reg.Openkey ('\.DEFAULT\Software\Microsoft\Windows\CurrentVersion',false);

reg.WriteString('Run', 'Logo', s);

button1.click;

end;