Registry: String auslesen?

[Sharky]

Hai,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  reg               : TRegistry;
  anmeldung         : string;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CURRENT_USER;
    anmeldung := '';
    if reg.OpenKey('Software\Euro_Auftrag', True) then
    begin
      anmeldung := reg.ReadString('Benutzer');
    end;
  finally
    reg.free;
  end;
end;