[pporokka]

Надо так

Код:

procedure TForm1.LoadReg;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('\Software\ClientChat',true);
  if reg.ValueExists('TransMouse') then CheckBox3.Checked := reg.ReadBool('TransMouse');
 CheckBox3Click(nil);
  reg.CloseKey;
  reg.Free;
end;