[supernewbie]

госпади все равно ничего не работает(
не хотел палить скрипт, но ладно, выложу...

Var
 PckIn: Boolean = False;
 TimerPck: TTimer;

procedure Init; 
begin
 TimerPck:=TTimer.Create(nil);
 TimerPck.OnTimer:=@OnTimerPck;
 TimerPck.Enabled:=False;
 TimerPck.interval:=5000;
end;

procedure OnTimerPck(Sender: TObject);
begin
 if PckIn then
 begin
   buf:=HStr('17 C7 53 35 40 01 00 00 00 7C C9 FE FF 6A 57 02 00 8D F3 FF FF');
   SendToServerEx('Jou');
 end;
 TimerPck.Enabled := False;
 PckIn := False;    
end;

procedure Free; 
begin
 TimerPck.Free;
end;

begin
if FromServer and (ConnectName='Karog') then
begin
if (pck='62 1E 00 00 00 01 00 00 00 03 00 00 00 B5 05 00 00') then TimerPck.Enabled := True;
if (pck='62 1E 00 00 00 01 00 00 00 03 00 00 00 53 08 00 00') and (TimerPck.Enabled) then PckIn := True;
end;           
end.

Не робит абсолютно(