Сохранение файла из TStringList

[мимо]

Подскажите про сохранении файла.
Сохраняю я так из TStringList

end.SaveToFile(Edit1.Text+'\файл.txt')

как осуществить проверки:
- если такой файл ('файл.txt') существует, то записать в конец этого файла.

[Stilet]

если такой файл ('файл.txt') существует

IF FileExists(Путь к файлу) thne Существует такой файл

[Arigato]

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

записать в конец этого файла.

Для записи в конец, можно загрузить данный файл в другой TStringList, затем их объединить и сохранить в файл.

[Daramant]

Для записи в конец, можно загрузить данный файл в другой TStringList, затем их объединить и сохранить в файл.

Загружать файл не стоит, зачем делать лишние действия.
Лучше сделать так:

var
  FileName: String;
  fstrm: TFileStream;
  strlst: TStringList;
  Mode: Word;
begin
  strlst := TStringList.Create;
  try
    // add data to stringlist
    strlst.Add('1');
    strlst.Add('2');
    strlst.Add('3');

    FileName := 'data.txt';
    if FileExists(FileName) then
      Mode := fmOpenWrite
    else
      Mode := fmCreate;

    fstrm := TFileStream.Create(FileName, Mode);
    try
      fstrm.Seek(0, soFromEnd);
      strlst.SaveToStream(fstrm);
    finally
      fstrm.Free;
    end;
  finally
    strlst.Free;
  end;
end;