Cze!!
Czemu ten kod nie chce działać - ciąglę jakiś błąd
Reg := TRegistry.Create;
try
reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon', true);
checkbox1.Checked:=reg.ReadBool('ON');
reg.CloseKey;
finally
Reg.Free;
end;