[kokon]

Но ведь все остальное выполняется если сделать так:

Код:

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

То сообщение "Ok" выводиться. а таймер не включается, даже если ему явно присвоить значение True.