Запись в файл и чтение

// пишем 1 строку в файл
procedure TForm1.Button1Click(Sender: TObject);
var F: TextFile;
begin
  AssignFile(F, 'filename.txt');  // соединяем программу и текстовый файл
  Rewrite(F);                     // перезаписываем файлб если его еще нет, то будет создан, если есть - перезапишется
  Write(F, 'Hallo world');        // пишеи в файл строку
  CloseFile(F);                   // закрываем файл
end;
// добавляем строки в файл
procedure TForm1.Button2Click(Sender: TObject);
var F: TextFile;
begin
  AssignFile(F, 'filename.txt');         // соединяем программу и текстовый файл
  if not FileExists('filename.txt') then // проверяем существует ли файл или нет
    begin
      Rewrite(F);                        // перезаписываем файл, если его еще нет, то будет создан, если есть - перезапишется
      CloseFile(F);                      // закрываем файл
    end
  else
    begin
      Append(F);                         // открываем файл на 'до'запись
      WriteLn(F, 'Hallo world');         // пишеи в файл строку
      CloseFile(F);                      // закрываем файл
    end;
end;
// читаем из файла
procedure TForm1.Button3Click(Sender: TObject);
var F: TextFile;
    A: Array of String;
    i: Integer;
begin
  AssignFile(F, 'filename.txt');         // соединяем программу и текстовый файл
  if not FileExists('filename.txt') then // проверяем существует ли файл или нет
    begin
      ShowMessage('Такого файла не существует');
      Exit;
    end
  else
    begin
      Reset(F);
      i := 0;
      repeat                             // считаем пока не дошли до конца файла
        SetLength(A, i+1);               // устанавливаем длину массиву по мере нахождения новых строк в файле
        ReadLn(F, A[i]);                 // считываем в массив из файла строку за строкой
        i := i + 1;                      // увеличиваем счетчик для массива
      until Eof(F);
    CloseFile(F);                        // закрываем файл
    end;
 
  for i := 0 to Length(A) - 1 do         // выводим в мемо что мы считали
    Memo1.Lines.Add(A[i])
end;
// запись сразу из мемо в файл
procedure TForm1.Button4Click(Sender: TObject);
begin
  Memo1.Lines.Add('тут текст');              // пишем текст в файл
  Memo1.Lines.Add('тут еще текст');          // пишемм еще текст в файл
  Memo1.Lines.SaveToFile('filename2.txt');   // и все сохраняем
end;
// чтение из файла в мемо
procedure TForm1.Button5Click(Sender: TObject);
var A: Array of String;
    i: Integer;
begin
  Memo1.Lines.LoadFromFile('filename2.txt');  // прочитаем файл и запишем в мемо1 все из этого файла
  SetLength(A, Memo1.Lines.Count + 1);        // установим длину массива равной кол-ву строк в мемо
 
  for i := 0 to Length(A) - 1 do
    A[i] := Memo1.Lines[i];                    // зпишем в массив все что в мемо1
 
  for i := 0 to Length(A) - 1 do
    Memo2.Lines.Add(A[i]);                     // выведем в мемо2 все из только что заполненого массива(для проверки)
end;