1)不知道,不過你完全可以試一下;
2)給個例子,你的不完整
var
  RegF : TRegistry;
begin
  RegF := TRegistry.Create;
  RegF.RootKey := HKEY_LOCAL_MACHINE;
  try
    RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
    RegF.WriteString('ProgramAddtoRun','D:\Delphi\Tregister\ProgramAddtoRun\ProgramAddtoRun.exe');
  except
    ShowMessage('error');
  end;
  RegF.CloseKey;
  RegF.Free;
end;