Registry Eintrag erstellen/löschen

[Gast]

Dank dir Habe aber noch eine kleine Frage, habe jetzt folgendes:

Delphi-Quellcode:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Reg: TRegistry; 
begin
  if CheckBox1.Checked = true then begin
    Reg := TRegistry.Create;
    try
      Reg.RootKey := HKEY_CURRENT_USER;
      Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
      Reg.WriteString('Uptime-Viewer', ParamStr(0));
      Reg.CloseKey;
    finally
      Reg.Free;
  end;
  end;
  if CheckBox1.Checked = false then begin
    Reg := TRegistry.Create;
    try
      Reg.RootKey := HKEY_CURRENT_USER;
      Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
      Reg.DeleteValue('Uptime-Viewer');
      Reg.CloseKey;
    finally
      Reg.Free;
  end;
end;
end;

Das geht auch alles, doch wenn ich das Proggi in die Registry drin habe, dann sollte der Haken direkt in die Checkbox rein, aber wie geht das ?

Also if Registry da then Checkbox.checked := true

Wäre für ein Beispielcode sehr dankbar