[TAMBIK]

[quote=QaK;35012]TAMBIK, делаешь п1 - запускаешь таймер, в интервале ставишь, скклько надо тебе ждать, в обработчик таймера - п4 и стоп таймера, ну и проверяешь, если получил ответ на п1 и таймер.енабле = true тогда товет получили и тормозишь таймер.
Как-то так ... что непонятно - спрашивай

вот так ?

// п.1
 procedure Action;
  begin
  timer5.enabled:=true;
  end; 
procedure OnTimer5(Sender: TObject);
 begin
  stopAttacka;
  end;
// п.4
  procedure stopAttaka;
   begin
   timer5.enabled:=false;
   end;
 procedure Init;
  begin
  timer5:=TTimer.Create(nil);
  timer5.OnTimer:=@OnTimer5;
  timer5.enabled:=false;
  timer5.interval:=6000;
  end;
 procedure Free; 
  begin
  Timer5.free;
  end;

// п.2
  begin
  if FromServer and(pck[1]=#$33)and(ReadD(2)=myID) then 

        if  timer5.enabled=true  then  timer5.enabled:=false;  
            end;