Запись текста в файл. Delphi 7

[Serge_Bliznykov]

Сообщение от qpMAXqp

В итоге файл должен быть открыт, при нажатии на кнопку, в котором будет записан макс элемент.

так устроит?

procedure TForm1.btn2Click(Sender: TObject);
const
  MaxFileName = 'c:\1\exampleMax.txt';
var maxS : string;
  f: TextFile;
begin
  maxS := '';
  if FileExists(MaxFileName) then begin
    AssignFile(f, MaxFileName);
    Reset(f);
    if Not Eof(f) then ReadLn(f, maxS)
    else   maxS := 'файл пуст!';
    CloseFile(f);
    mmo1.Lines.Append('Из файла прочитали: '+maxS);
  end
  else
   mmo1.Lines.Append('не найден файл '+MaxFileName);
end;

[qpMAXqp]

да, благодарю