file - Delphi: 空のテキスト ファイルを保存する TFileStream と TStringList

Question

私は大学生 (英国) で、A2 コンピューティング プロジェクトに Delphi を使用しています。私は本当にあまり進んでいませんので、ご容赦ください！わかりました。TStringList を使用して、TMemoBox の内容を暗号化した後、テキスト ファイルに保存しています。ただし、暗号化を台無しにしたメッセージの後に TStringList が改行を表示しているため、これは不可能でした。TStringListとTFIleStreamの両方を使用してこれを削除するこの記事に従いましたが、完全なテキストファイルを提供する代わりに、結果は空です。データをまったく保存しないのではなく、データを保存するのを手伝っていただけませんか? どうもありがとう。これが私の手順の一部です。

var
  EmailText : TStringList;
  FileStream : TFileStream;
begin
  FileName := 'email1.txt';
  EmailText := TStringList.Create;
  FileStream := TFileStream.Create(Filename, fmCreate);          

  EmailText.SaveToStream(FileStream, EmailText.Encoding);
  FileStream.Size := FileStream.Size - Length(System.sLineBreak);           
  EmailText.Add(EmailMessageMemo.Text);                            
  FileStream.Free;
  EmailText.Free;