{
*******************************************************************
Если в программе уже открыт какой-либо модальный диалог, то попытка
инициировать диалог даст ошибку. При этом editstate=8.
При обнаружении ошибки надо сделать сброс, вызвав edit('').
*******************************************************************
} 
if editstate=8 then begin
 writeln('Error detected when try open dialog!');
 s:=edit('');
end;