[AND_REY]

Можно ещё так:

Код:

Procedure ChengeByte(Name: String; B: Byte // B: DWORD);
Var
 F: TFileStream;
Begin
 F:= TFileStream.Create(Name, fmOpenWrite); 
 F.Position:= $100; // 
 F.Write(B, 1 // 4);
 F.Free;
end;

Admin: И где теги?