通过内存流写入应该可以。
const offset:integer= 637044 //你需要写入的偏移地址
var
F:Tmemorystream;
buffer2;pchar;
begin
buffer2:=pchar('你要写入的字');
F.Tmemorysteam.crate;
F.loadfromfile(filename);//filename为你的图片路径
F.seek(offset,sofrombeginning);
F.writebuffer(buffer2^,写入文字的长度);
F.savetofile(filename); //保存文件路径
