Сохранение данных из нескольких Memo в один файл

procedure SaveToFileText(NameF: string; st: string; n: integer);
{Процедура записывает кусок текста в текстовый файл
с тегами <Text # n> ... </Text # n> При этом идет нумерация
текстовых кусков}
var
  sl: TStringList;
  s: string;
begin
  sl:= TStringList.Create;
  sl.LoadFromFile(NameF);
  sl.add('<Text #'+IntToStr(n)+'>'+#13#10+st+'</Text #'+IntToStr(n)+'>');
  sl.SaveToFile(NameF);
  sl.Free;
end;
 
 
function LoadFromFileText(NameF: string; var st: TstringList; n: integer): boolean;
{Функция возвращает True если она нашла кусок текста обозначенный тегами
<Text # n> ... </Text # n> в текстовом файле. N - номер куска текста}
var
  sl: TStringList;
  s: string;
  ind1,ind2,i: integer;
begin
  sl:= TStringList.Create;
  sl.LoadFromFile(NameF);
  ind1:= sl.IndexOf('<Text #'+IntToStr(n)+'>');
  ind2:= sl.IndexOf('</Text #'+IntToStr(n)+'>');
  Result:= (ind1 >= 0) and (ind2 >= 0);
  st.Clear;
  if  Result then
    for i:= ind1 + 1 to ind2 - 1 do
      st.Add(sl.Strings[i]);
  sl.Free;
end;
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
{Процедура-обработчик события "OnClick" кнопки "Загрузить в файл"}
var
  f: Text;
begin
  try
    AssignFile(F,FileNameText);
    FileMode := fmOpenReadWrite;
    Rewrite(f);
  finally
    CloseFile(F);
  end;
  SaveToFileText(FileNameText,Memo1.Text,1);
  SaveToFileText(FileNameText,Memo2.Text,2);
  SaveToFileText(FileNameText,Memo3.Text,3);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
{Процедура-обработчик события "OnClick" кнопки "Вывести из файла"}
var
  s: TstringList;
begin
  s:= TStringList.Create;
  if LoadFromFileText(FileNameText,s,1) then
    Memo1.Text:= s.Text
  else
    MessageDlg('В общем файле не найден кусок текста № 1',mtError,[mbOk],0);
  s.Clear;
  if LoadFromFileText(FileNameText,s,2) then
    Memo2.Text:= s.Text
  else
    MessageDlg('В общем файле не найден кусок текста № 2',mtError,[mbOk],0);
  s.Clear;
  if LoadFromFileText(FileNameText,s,3) then
    Memo3.Text:= s.Text
  else
    MessageDlg('В общем файле не найден кусок текста № 3',mtError,[mbOk],0);
  s.Free;
end;