Sample FileStream writing TMemo lines

DelphiFileStreamMemo.pas

{ Saving from TMemo.Lines does not honor the TrailingLineBreak option of
  TStrings. }

procedure TfSavingMemoLines.aSaveLinesExecute(Sender: TObject);
var
  LMode: Word;                                             // in case we need to create the file
  LFileStream: TFileStream;                                // handle the writing
begin
  if not FileExists(LogFileName) then                      // test for file exists
    LMode := fmCreate                                      // not present need to create
  else
    LMode := fmOpenReadWrite;                              // present need to append
  LFileStream := TFileStream.Create(LogFileName, LMode or fmShareDenyWrite); // open log file
  try
    LFileStream.Seek(0, soFromEnd);                        // make sure at the end of the existing file
    mMain.Lines.SaveToStream(LFileStream, TEncoding.UTF8); // add the lines to the end
  finally
    LFileStream.Free;                                      // return resources
  end;
end;

Example of using TFileStream to save lines from a TMemo component. This method fails to honor the TrailingLineBreak option.