FileClose

// Главная форма
frm=new TForm();
frm.Caption="JS+ - функция JS+ FileClose";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Пример работы с файловыми функциями";

// Текстовое поле
mem=new TMemo(frm);
mem.BorderStyle=bsSingle;
mem.SetBounds(10,10,frm.ClientWidth-20,stb.Top-20);

str_lst=new TStrings();
f_name=JSPlus.HelpDir+"DATA\\TextFile.txt";
if ((f=FileOpen(f_name,fmOpenRead))>=0) {
  n=ReadStrings(f,str_lst);
  str_lst.Add("Всего строк: "+n);
  mem.Lines.Assign(str_lst);
  FileClose(f);
}

frm.ShowModal();