Delphi 如何将十六进制字符串保存到二进制文件？

我有一个十六进制字符串，如何将该字符串转换为二进制并保存为具有自定义扩展名的二进制文件？下面是我用来将字符串保存到文件中的示例代码块

function HexToString(H: String): String;
var I: Integer;
begin
  Result:= '';
  for I := 1 to length (H) div 2 do
    Result:= Result+Char(StrToInt('$'+Copy(H,(I-1)*2+1,2)));
end;

procedure saveAs();
p, k, c, tmp: HexStr;
begin

   k := StringToHex('mykey');

   //TO DO 
   //I need to convert 'k' into binary and save as new file
end;

---

Delphi的RTL具有多种功能。您可以使用+，或使用任何文件名+扩展名将二进制数据写入文件。

先生，我需要代码示例来实现，您能帮我吗？