[Aristarh Dark]

Пишу прямо тут, не проверяя

Код:

uses Registry;
var reg:TRegistry;
begin
  reg:=TRegistry.Create(KEY_READ);
  with reg do
     begin
        RootKey:=HKEY_LOCAL_MACHINE;
        if OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion',false) then
          MyMegaCheckBox.Checked:=ReadInteger('RegDone')=1;
     end;
  reg.free;
end

примерно так