Umgebungsvariablen dauerhaft setzen

[arbu man]

Das würd ich ja gerne, nur:

Delphi-Quellcode:

const
  S_ENVIRONMENT = 'HKEY_LOCAL_MACHINE\SYSTEM\'+
                  'CurrentControlSet\Control\Session Manager\Environment\';

procedure AddExecutePath(aPath: string);
var
  Reg: TRegistry;
  Path: string;
  Size: integer;
  SS: TStringStream;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey(S_ENVIRONMENT, true);
    Path := Reg.ReadString('Path');
    writeln('Path: '+Path);  // Path ist ''
    Path := Path + aPath + ';';
    Reg.WriteString('Path', Path); // Exception: Fehler beim setzen der Daten
    Reg.CloseKey;
  finally
    //FreeAndNil(Reg);
  end;
end;

Kann ich Path nicht weder lesen noch schreiben.