Добавление записи в файл

procedure TForm1.btn1Click(Sender: TObject);
var
f: TextFile;
i: integer;
begin
AssignFile(f,'F.txt');
Rewrite(f);
 // ShowMessage(IntToStr(length(Edit2.Text)));
  //ShowMessage(IntToStr(length(edt1.Text)));
  if length(Edit2.Text) = length(edt1.Text) then
       ShowMessage('регистрация прошла успешно')
  else ShowMessage('не совпадение паролей');
  if mmo1.Lines[i]='' then
      ShowMessage('введите имя пользователя!')
  else
    for i:=0 to Mmo1.Lines.Count do
    writeln(f,'имя пользователя:',Mmo1.Lines[i]);    
    showMessage('Данные записаны в файл');
    Append (f);
    CloseFile(f);
 end;

procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = 'file.txt';
var
  FileName : String;
  S : AnsiString;
  Fs : TFileStream;
begin
  //Полный путь к файлу с именем Fn, который расположен в той же папке,
  //в которой лежит исполняемый файл программы.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  try
    //Если файл уже существует, то открываем его в режиме чтения/записи.
    //Если файл не существует, то создаём его и открываем в режиме чтения/записи.
    //fmShareDenyWrite - запрет на запись в файл из других процессов (приложений).
    if FileExists(FileName) then
      Fs := TFileStream.Create(FileName, fmOpenReadWrite, fmShareDenyWrite)
    else
      Fs := TFileStream.Create(FileName, fmCreate, fmShareDenyWrite);
    //Переводим файловый указатель в конец файла.
    Fs.Position := Fs.Size;
    //Если файл не пуст, и в конце файла нет знаков конца или перевода строки,
    //то добавляем в конец файла знаки #13#10. - Чтобы отделить новое
    //содержимое от прежнего.
    if Fs.Size > 0 then begin
      //Задаём размер ANSI строки в 1 ANSI символ.
      SetLength(S, 1);
      //Файловый указтель размещаем перед последним символом (байтом) файла.
      Fs.Position := Fs.Position - 1;
      //Читаем в строку последний ANSI символ (байт) файла.
      Fs.Read(S[1], 1);
      //Если прочитанный символ не является знаком конца или перевода строки,
      //то записываем в конец файла пару знаков #13#10.
      if not (S[1] in [#10, #13]) then begin
        S := #13#10;
        Fs.Write(S[1], 2);
      end;
    end;
    //Добавляем в конец файла новое содержимое.
    Memo1.Lines.SaveToStream(Fs);
  finally
    FreeAndNil(Fs);
  end;
end;