Конструкция Else if и чекбокс

[Phantosmagor]

имеется на поле:
1 чекбокс
2 Edit

Написал код:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if
(CheckBox1.Checked=true)
then begin
Edit1.Enabled:=False;
Edit4.Enabled:=True;
end
else if (CheckBox1.Checked=false)
then
Edit1.Enabled:=True;
Edit4.Enabled:=False;
end;

Отрабатывает странно, хотя логика вроде деревянная. Т.е должно быть так:
Если чекбокс активирован - Edit1 -false Edit4-true
Если чекбокс не активирован - Edit1 - true Edit4 -false


Что происходит на самом деле:
1)Чекбокс не активирован - Edit1- True - Edit4 -False
2)Чекбокс активирован - Edit1 -False Edit4-False
3)Чекбокс Не активирован (снова) - Edit1 -True Edit4 -False
Т.е первый Edit он включает/выключает, а второй - остаётся в False. Ума не приложу, где ошибка.

Подскажите пожалуйста.

[Аватар]

Нет begin после else if ... then. А лучше так:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Edit1.Enabled:=not CheckBox1.Checked;
  Edit4.Enabled:=CheckBox1.Checked;
end;

[Phantosmagor]

Сообщение от Аватар

Нет begin после else if ... then. А лучше так:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Edit1.Enabled:=not CheckBox1.Checked;
  Edit4.Enabled:=CheckBox1.Checked;
end;

Действительно - намного короче получается конструкция, и эффективнее. Begin - действительно забыл.... Благодарю Вас.
Проблема решена.