delphi - 電子メールの等幅表示を強制する (Delphi 7 を使用)

Question

現在、私たちの会社は、等幅フォントを使用して作成されたレポートをクライアントに電子メールで送信しています。

元。

Source                                    Count    Male   Female
----------------------------------------------------------------
ABC      A Brand Name Company                  106     35     71
DEF      Default Earth Factories                 1      0      1
GHI      Greater Height Industries               1      0      1
JKL      Jo King Limited                         0      0      0

レポートは、サーバーに保存されている .eml ファイルの本体に直接組み込まれています。

従来の Delphi 7 プログラムは、これを Outlook 経由で受信して開くクライアントに電子メールで送信すると、テキストがぎざぎざになります。(これらのレポートを正しく表示するために、Outlook の設定を変更したくありません。)

procedure Report_Function(Sender: TObject);
var
  F: Textfile;
  filename: string;
begin
  filename := 'N:\Reports\' + LowerCase(fMainMenu.Org) + '.eml';
  AssignFile(F, filename);
  try
    Rewrite(F);
    Writeln(f, Nice(qrRegSum.qrlDescription.Caption, 36) + '  Count    Male   Female');
    Writeln(f, '------------------------------------------------------------');
    while (not dmReports.qSiteInfo.EOF) do  // Populate Report
    begin
      dmReports.qSiteInfo.Next;
    end;
  finally
    CloseFile(f);
  end;
  SendEmail(Filename, Subject);
end;

メールの等幅フォント表示を強制する方法はありますか (Delphi 7 を使用)?