Executando automaticamente um programa (via registro)

Uses registry;
var reg:TRegIniFile;
procedure TForm1.FormCreate(Sender: TObject);
var
s,s2:string;
begin
Reg:=TRegIniFile.Create('LloydSoft');
{HKEY_USERS.DEFAULTSoftwareMicrosoftWindowsCurrentVersionRun}
S:=ExtractFileDir(Application.ExeName);
S2:=ExtractFileName(Application.ExeName);
S:=S+''+S2;
reg.RootKey:=HKEY_USERS;
reg.Openkey ('.DEFAULTSoftwareMicrosoftWindowsCurrentVersion',false);
reg.WriteString('Run', 'Logo', s);
button1.click;
end;