checkbox edit и event's

[Mimmy]

Приветствую всех. Сложилась беда при написании программы. Я просто новичок в этом деле.

У меня в поле edit1 написан текст, при двойном нажатии лкм текст стирается.
Чекбокс1 работает по принципу, если он активен то окно edit1 readonly, если не активен то readonly false.Но сталкнулся с бедой, если Чекбокс1 активен ( значит по идее стоит Readonly) то при двойном щелчке лкм поле edit1 стирается
Вопрос знатокам, как сделать так что бы при активном чекбоксе у меня при двойном нажатии не стиралось поле edit1.

с уважением Сергей.

Сам решил задачу. Так что вот код, вдруг кто нибудь с таким столкнется.

procedure TForm1.Edit1DblClick(Sender: TObject);
begin
if CheckBox1.Checked then
BEGIN
edit1.text:=edit1.Text;
END
else IF CheckBox1.Checked=false then
begin
edit1.text:='';
end
end;

Оказалось проще простого, просто что переклинило, думал более сложные методы!

[igh0st]

Немного причесал

procedure TForm1.Edit1DblClick(Sender: TObject);
begin
    if not CheckBox1.Checked then
        Edit1.Text := '';
end;

[Roof]

...if CheckBox1.Checked then
BEGIN
edit1.text:=edit1.Text;
...

Так не делай никогда.