Como meter un ejecutable en uso en el arranque de windows 8.1 x64?

[cocute]

Como meter un ejecutable en el arranque de windows 8.1?

he probado con esto pero no hace nada aun ejecutando como administrador

Código Delphi [-]
procedure RunOnWinStart(ApTitle, ApPathFile: string;
  RunOnce: Boolean);
var
  Reg: TRegistry;
  TheKey: string;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  TheKey := 'Software\Microsoft\Windows\CurrentVersion\Run';
  if RunOnce then TheKey := TheKey + 'Once';
  // Open key, or create it if it doesn't exist
  Reg.OpenKey(TheKey, True);
  Reg.WriteString(ApTitle, ApPathFile);
  Reg.CloseKey;
  Reg.Free;
end;