[fofka]

Добрый вечер. Есть у меня на форме три CheckBox. CheckBox13, CheckBox14, CheckBox15. Если CheckBox13=cdChecked то пишется в файл и идет выполнение дальше. Если CheckBox13=cdUnchecked то дальше код не хочет выполнятся, не хочет переходить к условиям выполнения CheckBox14. Как правильно написать что если CheckBox13=cdUnchecked то перейти к выполнению условия CheckBox14 и соответвенно еслиCheckBox14=cdUnchecked то перейти к условию CheckBox15. Вот понаписал!
Заранее благодарю.

 
 
///---Действия при CheckBox13

  If CheckBox13.State = cbChecked Then  
               Form3.Caption :='www';

  If CheckBox13.State = cbChecked Then
               Ex.ActiveWorkBook.WorkSheets[L3].Range['E2'].Value:=n1;

  If CheckBox13.State = cbChecked Then
               Ex.ActiveWorkBook.WorkSheets[L1].Range['B26'].Value:='Новый лист';

  If CheckBox13.State = cbChecked Then
   begin
    for i:=1 to length(mem3) do begin
    j:=(i div 105) + 7;
    Ex.ActiveWorkBook.WorkSheets[L3].Cells[j,2].value:=Ex.ActiveWorkBook.WorkSheets[L3].Cells[j,2].value+mem3[i];
  end;


///---Действия при CheckBox14
  If CheckBox14.State = cbChecked Then  
               Form3.Caption :='wwwwwww';

  If CheckBox14.State = cbChecked Then
     Ex.ActiveWorkBook.WorkSheets[L4].Range['E2'].Value:=n1;

  If CheckBox14.State = cbChecked Then
     Ex.ActiveWorkBook.WorkSheets[L1].Range['B46'].Value:='Новый лист-2';

  If CheckBox14.State = cbChecked Then
  begin
  for i:=1 to length(mem4) do begin
  j:=(i div 105) + 7;
  Ex.ActiveWorkBook.WorkSheets[L4].Cells[j,2].value:=Ex.ActiveWorkBook.WorkSheets[L4].Cells[j,2].value+mem4[i];
  end;

[Assistant]

State = cbChecked замените на Checked = True (или False при UnChecked)

[fofka]

Благодарю за совет, но не хочет работать. Если

///---Действия при CheckBox13

  If CheckBox13.State = cbChecked Then  

или как рекомендовали

 If CheckBox13.Checked = True Then 

то идет дальше процесс. А если

 If CheckBox13.Checked = False Then 

то процесс останавливается и усе. Висит, код дальше не выполняется.