Registry übernimmt die Werte nicht

[Kompon Ente]

Hallo,

die unten stehende Prozedur soll die Werte in die Registry schreiben.

Funktioniert aber nicht, warum auch immer.

Delphi-Quellcode:

procedure WriteRegistry;
var
  Reg: TRegistry;
  line: String;
begin
  if (FMyProxy = '') or (FMyProxyPort = '') then
    MessageDlg('Sie müssen einen Proxyserver angeben, über den Sie' + #13#10 + 'eine korrekte Internetverbindung herstellen können!', mtWarning, [mbOK], 0)
  else
  if (FMyProxy <> FCheckProxy) or (FMyProxyPort <> FCheckProxyPort) then
  begin
    line := FMyProxy + ':' + FMyProxyPort;

    Reg := TRegistry.Create;
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('\Software\Tisy Zeitermittlung\',True);

    if FProxyArt = 2 then
      Reg.WriteString('ProxyServer',line);

    Reg.WriteInteger('ProxyEnable',FProxyArt);
    Reg.WriteInteger('Synctime',FSynctime);
    Reg.CloseKey;
    Reg.Free;
  end;
end;

Diese wird aufgerufen, wenn man beim Speichern die Option "Ja" gewählt hat.