in die Registry schreiben

[strom]

Hallo,
möchte was in die Registry schreiben, was soweit auch funktioniert.
Nur für ca. 30sec. kommt immer die Meldung in der Form1 (Keine Rückmeldung) ???

Warum? Bin als Administrator angemeldet!

Delphi-Quellcode:

procedure TForm1.Reg1Click(Sender: TObject);
var
  reg : TRegistry;
    s : String;
begin
 if InputQuery('Caption', #31 + 'Bitte geben Sie das Passwort ein', s ) then
  begin
    if s = 'test' then begin
  reg := tregistry.create;
  with reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
    WriteString('LogUser', paramstr(0));
    CloseKey;
    free;
 end;
end;
  end;
end;