[kokon]

Всем доброго времени суток. есть проект, он сохраняет параметры в реестр. но при загрузке из реестра происходит непонятное... в реестре сохраняется булево значение и потом при активации формы возвращается, но проблема в том, что не выполняется активация таймера хотя CheckBox = Checked.

Код:

procedure TForm1.FormActivate(Sender: TObject);
begin
  LoadReg;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
  if not CheckBox3.Checked then
   begin
      Form1.AlphaBlend := CheckBox2.Checked;
      Form1.AlphaBlendValue := TrackBar1.Position;
   end;
  tmr3.Enabled := CheckBox3.Checked; //Не выполняется...
end;

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');
  reg.CloseKey;
  reg.Free;
end;