А вот вопрос а можно ли в процедурку LoadFile добавить примерно следующее!
procedure LoadFile;//Загрузка файла
begin
fname:=formgettext(efile);
buf:=read_file(fname);
showtextbox('Редактирование',buf,2000,tf_any);
addcommand(ok);
addcommand(cancel);
repeat
clicked:=getclickedcommand;
delay(100);
until clicked <> EbptyClicked;
if clicked=cancel then menu;
if clicked=ok then saveFile;
end;