[TAMBIK]

// сдаем один раз чтоб запомнить пакет
// вкл таймер для отправки пакета соцдействие ДА - YES
// откл таймер для отправки пакета соцдействие НЕТ -NO
// управление под ФИНАЛ хроники

const
 name='xxxx';// <<== пишем здесь имя своего ЧАРА
var
   manorItem: string;
   Timer01: TTimer;

procedure Init;
begin
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=1000;// интервал между пакетами сейчас стоит 1 секунда
end;
procedure Free;
begin
  Timer01.free;
end;

procedure OnTimer01(Sender: TObject);
begin
   buf:=manorItem;
   SendToServerEx(name);
end;
begin
if FromClient and (pck[1]=#$D0) and (pck[2]=#$02) then manorItem:=pck;
if FromClient then 
begin
case ReadD(2) of
  24:begin
     Timer01.enabled:=true;
     pck:='';
     exit;     
     end;
  25:begin
     Timer01.enabled:=false;
     pck:='';
     exit;     
   end;
end;
end;
end.