[san-46]

Код:

//чтение
procedure LoadFromFile
var  F : TextFile;
begin
  Data := '';
  {$I-}
  AssignFile(F, 'anyfile.txt');
  Reset(F);
  if not EOF(F) then 
    ReadLn(F, Data);
  CloseFile(F);
  {$I+}
  if IOResult > 0 then
    //ошибка при открытии файла 
    //(не существует, уже открыт, доступ запрещен и т.п)
end;

//запись
procedure SaveToFile
var  F : TextFile;
begin
  AssignFile(F, 'anyfile.txt');
  if FileExists('anyfile.txt') then
    //если файл существует, открывается для добавления данных в конец
    Append(F) 
  else
    //создается, если не существует и открывается для записи
    Rewrite(F); 

  WriteLn(F, Data); //запись данных
  CloseFile(F);
end;