Thats good to know, thanks I will try it

I would write this
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.enabled then edit1.Enabled := false else edit1.enabled := true;
end;
like that:
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.enabled := not edit1.enabled;
end;
But it has nothing to do with your actual problem, just saying 