Примерно так:
program text;
uses jsr75;
var
buf,fname:string;
efile,i:integer;
ok,cancel,clicked:command;
procedure Init;//Инициализация
begin
showform;
ok:=createcommand('OK',cm_ok,0);
cancel:=createcommand('Отмена',cm_cancel,0);
efile:=formaddtextfield('Файл:','/a/mobile/text.txt',128,tf_any);
end;
procedure LoadFile;//Загрузка файла
begin
fname:=formgettext(efile);
buf:=read_file(fname);
showtextbox('Редактирование',buf,2000,tf_any);
end;
procedure SaveFile;//Сохранение файла
begin
fname:=formgettext(efile);
if file_exists(fname)=1 then
delete_file(fname);//иначе просто допишет текст в конец файла
write_file(fname,buf);
end;
procedure CheckCommand;//Проверяем, что нажал пользователь
begin
addcommand(ok);
addcommand(cancel);
repeat
clicked:=getclickedcommand;
if clicked=cancel then halt;
delay(100);
until clicked=ok;
end;
begin
Init;
CheckCommand;
LoadFile;
CheckCommand;
showform;
buf:=gettextboxstring;
CheckCommand;
SaveFile;
end.