{
*******************************************************************
Обнаружив editstate=1, можно при помощи edit('?ans n') получить
доступ к результату редактирования. Нулевой строкой всегда идет
NAME=RESULT, где NAME-имя которое было задано при инициировании
редактирования, RESULT-результат диалога, то есть одна из констант
 1=Ok
 2=Cancel
 6=Yes
 7=No
Далее идут строки с дополнительной информацией, если она есть.
MenuList       - edit('?ans 1') = номер выбранного пункта
SelectionList  - edit('?ans n') = строки списка номеров выбранных пунктов
TextEdit       - edit('?ans n') = строки отредактированного текста
FileOpenDialog - edit('?ans n') = строки списка имен файлов
Общее число строк (включая нулевую) можно получить по edit('?ans count').
*******************************************************************
}
if editstate=1 then begin
 writeln('Stop edit.');
 writeln('Editing results are:');
 for i:=0 to val(edit('?ans count'))-1 do writeln(edit('?ans '+str(i)));
 s:=edit('');
end;
