Перестала работаь функция

[f1xed]

Всем доброго времени суток, у меня проблема, написал код, всё работало, сегодня начал дописывать прогу, но теперь отказывается работать функция (при нажатии на чекбокс становится доступным для записи поле edit, если чекбокс не нажат - поле edit не доступно), вот её код

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

посмотрите, может быть я что то намудрил нечайно

[T-dayne]

Просто не работает, или некомпилируется?

[f1xed]

T-dayne, компилируется нормально, но в .exe уже не работает

[Alt]

Какая-то она кривая (синтаксических ошибок нет но исполнение кривое). Попробуй так:

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

[f1xed]

Alt, не работает

[Stilet]

А она вообще с событием связана?
Посмотри в инспекторе обьектов, привязана ли она к компоненту.

[Kotlyar562]

f1xed, а что пишет? может опечатка или еще что...

Сообщение от Alt

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

нормально работает, и при компиляции, и ехе-шник...

[f1xed]

Stilet, спасибо, невнимательность