[ViNT]

1. Если нет exception на обращение к классам, то скорее всего motofs.
2.Необходимо дать приложению доступ к ФС.
3.Нужно точно соблюдать регистр(нельзя писать file.TXT вместо file.txt.

Вот кое что исправил(синим цветом) но это на суть не влияет, всеравно надо дать доступ к ФС:

program text;
uses mfs;

var

buf,fname:string;
efile:integer;
ok,cancel,clicked:command;

begin
showform;
ok:=createcommand('OK',cm_ok,0);
cancel:=createcommand('Отмена',cm_cancel,0);
addcommand(ok);
addcommand(cancel);
efile:=formaddtextfield('Файл:','/a/mobile/text.txt',128,tf_any);
repeat
clicked:=getclickedcommand;
if clicked=cancel then halt;
delay(100);
until clicked=ok;
fname:=formgettext(efile);
buf:=mfs.read_file(fname);
showtextbox('Редактирование',buf,2000,tf_any);

addcommand(ok);
addcommand(cancel);


repeat
clicked:=getclickedcommand;
if clicked=cancel then halt;
delay(200);
until clicked=ok;
showform;

buf:=gettextboxstring;

repeat
clicked:=getclickedcommand;
if clicked=cancel then halt;
delay(200);
until clicked=ok;
fname:=formgettext(efile);


if mfs.file_exists(fname)=1 then
mfs.delete_file(fname);//иначе просто допишет текст в конец файла


mfs.write_file(fname,buf);
end.