[kpa9pt]

const
name='brbr';
var
enchant:TTimer;
procedure Init;
          begin
               enchant:=TTimer.Create(nil);
               enchant.OnTimer:=@Onenchant;
               enchant.enabled:=true;
               enchant.interval:=3000;
          end;
procedure Onenchant(Sender: TObject);
begin
if FromClient and (pck[1]=hstr('49')) then begin
pck:='';
buf:=hstr('56 00 00 00 00 00 00 00 00 00');
SendToServerEx(name);
end;
end;
procedure Free;
          begin
               enchant.Free;
           end;
begin
    
end.

Вот то что под процедурой не работает, но если убрать в процедуре эту строку:

if FromClient and (pck[1]=hstr('49')) then то он каждые 3 секунды нормально садиться и встаёт тоесть всё отлично с таймером.

Ну а если же всё что под процедурой засунуть в тело скрипта тоесть вот так:

const
name='brbr';
var
enchant:TTimer;
procedure Init;
          begin
               enchant:=TTimer.Create(nil);
               enchant.OnTimer:=@Onenchant;
               enchant.enabled:=true;
               enchant.interval:=3000;
          end;
procedure Onenchant(Sender: TObject);
begin
end;
procedure Free;
          begin
               enchant.Free;
           end;
begin
if FromClient and (pck[1]=hstr('49')) then begin
pck:='';
buf:=hstr('56 00 00 00 00 00 00 00 00 00');
SendToServerEx(name);
end;
end.

То работает отлично я пишу чтолибо в чат и он тутже садиться.

Ну и вот собствена проблема как сделать чтоб всё работало с условием тоесть с этой строкой - if FromClient and (pck[1]=hstr('49')) then
и именно в процедуре:

procedure Onenchant(Sender: TObject);
begin
end;

Вот).