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

[onexite]

PHP كود :

const FileSize:Byte=12;
FileData:array[0..12] of Byte=(00,00,00,00,00,00,00,00,00,00,00,00,00);
procedure SaveToFile(FileName:String);
var F:File of Byte;
    i:Byte;
begin
AssignFile(F,FileName);
ReWrite(F);
for i:=0 to FileSize-1 do Write(F,FileData[i]);
CloseFile(F);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
SaveToFile('c:\1.bin');
end;