Form

[kas1]

Господа, сделайте так.

На форме сделайте две кнопки EditFalse и EditTrue. Наложите одну на другую.
На OnPush кнопки EditTrue напишите:
CurrForm.EDITABLE := TRUE;
CurrForm.EditTrue.VISIBLE:=FALSE;
CurrForm.EditFalse.VISIBLE:=TRUE;

На OnPush кнопки EditFalse напишите:
CurrForm.EDITABLE := FALSE;
CurrForm.EditFalse.VISIBLE:=FALSE;
CurrForm.EditTrue.VISIBLE:=TRUE;

На OnOpenForm напишите:
//При открытии формы, если там нет данных редактировать можно
IF NOT FIND('-') THEN
CurrForm.EDITABLE := TRUE
ELSE
//При открытии формы, если там есть данные запрещаем редактирование
CurrForm.EDITABLE := FALSE;
CurrForm.EditFalse.VISIBLE:=FALSE;

И нет проблем.