请求翻译Delphi中TTransactionType枚举及记录助手相关代码

嗨，我已经把这段Delphi代码的注释和相关说明翻译成中文啦，代码本身完全保留了原有的技术术语和结构，你可以直接参考：

1. 枚举类型 TTransactionType 定义 #

type
  TTransactionType = (
    ttDeposit,    // 存款交易
    ttWithdrawal, // 取款交易
    ttTransfer,   // 转账交易
    ttPayment     // 支付交易
  );

原英文语义翻译：

• ttDeposit：对应英文Deposit，译为「存款交易」
• ttWithdrawal：对应英文Withdrawal，译为「取款交易」
• ttTransfer：对应英文Transfer，译为「转账交易」
• ttPayment：对应英文Payment，译为「支付交易」

2. TTransactionTypeHelper 记录助手声明 #

type
  TTransactionTypeHelper = record helper for TTransactionType
  public
    function GetDisplayName: string;
    function IsFinancialMovement: Boolean;
    procedure LogTransaction(const AAmount: Currency);
  end;

中文功能说明：
这是为TTransactionType枚举量身定制的记录助手，用来扩展枚举的功能，包含三个成员方法：

• GetDisplayName：获取当前交易类型的友好显示名称，适合在UI界面展示
• IsFinancialMovement：判断当前交易类型是否属于资金变动类交易
• LogTransaction：记录交易明细，参数AAmount为交易的金额（货币类型）

3. TTransactionTypeHelper 部分实现代码 #

function TTransactionTypeHelper.GetDisplayName: string;
begin
  case Self of
    ttDeposit: Result := '存款';
    ttWithdrawal: Result := '取款';
    ttTransfer: Result := '转账';
    ttPayment: Result := '支付';
  else
    Result := '未知交易类型';
  end;
end;

function TTransactionTypeHelper.IsFinancialMovement: Boolean;
begin
  Result := (Self = ttDeposit) or (Self = ttWithdrawal) or (Self = ttTransfer);
end;

中文代码注释说明：

1. GetDisplayName方法：通过分支匹配枚举值，返回对应的中文显示名称，如果是未定义的枚举值，返回「未知交易类型」
2. IsFinancialMovement方法：判断当前交易是否为存款、取款或转账（这三类属于核心资金变动场景），返回布尔类型的判断结果

内容的提问来源于stack exchange，提问作者Jeff Cope