كيف تحويل القيم بالHEX الى ملف ناتج بصيغه bin في دلفي

[لؤي]

السلام عليكم

حاول بهذه الوظيفة :

PHP كود :

procedure TForm1.BitBtn1Click(Sender: TObject);
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;