十六进制到二进制转换

我已通过十六进制转换器将 jpeg 文件转换为十六进制代码。

现在如何将该十六进制转换为二进制并另存为Jpeg磁盘上的文件。

Like:

var 声明为十六进制代码，然后将该 var 十六进制代码转换为二进制并保存在磁盘上？

Edit:

Var 
  myfileHex := 'FAA4F4AAA444444'; // long as HEX code of my JPEG 

function HexToBin(myfileHex): string;
begin    
  // Convert Hex to bin and save file as...
end; 

德尔福已经有HexToBin (Classes) 程序，至少从 D5 开始。
试试这个代码：

procedure HexStringToBin;
var
  BinaryStream: TMemoryStream;
  HexStr: AnsiString;
begin
  HexStr := 'FAA4F4AAA44444';
  BinaryStream := TMemoryStream.Create;
  try
    BinaryStream.Size := Length(HexStr) div 2;
    if BinaryStream.Size > 0 then
    begin
      HexToBin(PAnsiChar(HexStr), BinaryStream.Memory, BinaryStream.Size);
      BinaryStream.SaveToFile('c:\myfile.bin')
    end;
  finally
    BinaryStream.Free;
  end;
end;

任何二进制文件都可以完成同样的操作TStream e.g. TFileStream.