怎么修改二进制文件中指定的位置的置呢，修改里面的十六进制值,找了半天没有相关的信息
procedure TForm1.btn1Click(Sender: TObject);
var
f:file;
a:array[1..60] of char;
i:integer;
s:string;
begin

  begin
     assignfile(f,'c:\a.exe');
     reset(f,1);
     seek(f,000000);
     for i:=1 to 60 do
        a[i]:=char(0);
     blockwrite(f,'ABCD',16);//这里是修改的asci字
     closefile(f);
  end;


上面修改的的asci字，我想修改十六进制