[ecfisa]

Hola de nuevo.

Casí lo olvido... Para no dejar las cosas a la mitad, al ejemplo, abría que agregarle:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  with TRegistry.Create do
  try
    RootKey := HKEY_LOCAL_MACHINE;
    if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', False) then
      CheckBox1.Checked:= ValueExists(CVALUE)
  finally
    Free;
  end;
end;
...

Saludos.