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;