如何在Delphi中获取本地化的日期名称？

program LocalizedDateNames;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  FormatSettings: TFormatSettings;
  LocalizedDate: string;

begin
  // 获取系统默认的格式设置
  FormatSettings := TFormatSettings.Create;

  // 使用系统默认的格式设置，将日期格式化为本地化的日期名称
  LocalizedDate := FormatDateTime('dddd, dd MMMM yyyy', Now, FormatSettings);

  // 输出本地化的日期名称
  WriteLn(LocalizedDate);
  ReadLn;
end.