[RomanRom2]

раз уж мы некропостим, то у меня вот так:

function msgBuild(var Buf: TBuffer; var m: T_SMSG_ATTACKSTOP): longint; overload;
begin
  pkt.InitCmd      (Buf, SMSG_ATTACKSTOP);
  pkt.AddGUID      (Buf, m.AttackerGUID);
  pkt.AddGUID      (Buf, m.TargetGUID);
  pkt.AddLong      (Buf, m.Following);
  result:= pkt.pktLen;
end;

это от классика 1.12
вообще булеан у близзов мнооооого где передается в виде инта, а мнооооого где в виде байта. это нормально. просто одну фичу делала одна команда программистов (которая не экономит трафик), другую - другая (которая экономит).