请问如何将输入字段的数字数据,打印时转换成大写汉字?

Question

procedure TForm1.QRLabel1Print(sender: TObject; var Value: String);
begin
  Value := StringReplace(Value, '0', '○', [rfReplaceAll]);
  Value := StringReplace(Value, '1', '一', [rfReplaceAll]);
  Value := StringReplace(Value, '2', '二', [rfReplaceAll]);
  Value := StringReplace(Value, '3', '三', [rfReplaceAll]);
  Value := StringReplace(Value, '4', '四', [rfReplaceAll]);
  Value := StringReplace(Value, '5', '五', [rfReplaceAll]);
  Value := StringReplace(Value, '6', '六', [rfReplaceAll]);
  Value := StringReplace(Value, '7', '七', [rfReplaceAll]);
  Value := StringReplace(Value, '8', '八', [rfReplaceAll]);
  Value := StringReplace(Value, '9', '九', [rfReplaceAll]);
end;

Answer 1

Value  :=  StringReplace(Value,  '0',  '零',  [rfReplaceAll]);
      Value  :=  StringReplace(Value,  '1',  '壹',  [rfReplaceAll]);
      Value  :=  StringReplace(Value,  '2',  '貮',  [rfReplaceAll]);
      Value  :=  StringReplace(Value,  '3',  '叁',  [rfReplaceAll]);
      Value  :=  StringReplace(Value,  '4',  '肆',  [rfReplaceAll]);
      Value  :=  StringReplace(Value,  '5',  '伍',  [rfReplaceAll]);
      Value  :=  StringReplace(Value,  '6',  '陆',  [rfReplaceAll]);
      Value  :=  StringReplace(Value,  '7',  '柒',  [rfReplaceAll]);
      Value  :=  StringReplace(Value,  '8',  '捌',  [rfReplaceAll]);
      Value  :=  StringReplace(Value,  '9',  '玖',  [rfReplaceAll]);
      Value := StringReplace(Value, '10', '拾', [rfReplaceAll]);//????