[semiromid]

вот написал с помощью delay()

const
name = 'AntBuf';  

begin
  if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
    if ReadS(2) = 'Пиротехник' then            //проверяем от кого
       buf:=hstr('43 01 00 00 00'); 
       delay(5000); 
       buf:=hstr('43 01 00 00 00') 
    else
      buf:=hstr('43 00 00 00 00');             //Создаем пакет "Отказать в пати"
    pck :='';                                  //убиваем этот пакет
    SendToServer;                              //Отправляем его на сервер
  end;  

end.

Но чего то выдает ошибку на против "else"

Добавлено через 36 минут

Сообщение от goodvin1709

VAR
Timer:TTimer;
Procedure Init;
begin
               Timer := TTimer.Create(nil) ;
               Timer.Interval := 1000;//Интервал.
               Timer.Enabled := False ;//Его включеность при старте.
               Timer.Ontimer := @OnTimer ; //Вызов Процедуры.
End;
Procedure Free;
begin
timer.free;
end;


Procedure OnTimer(Sender : TObject) ;
begin
Timer.enabled:=false;
buf:=#$42;
      SendToServer;//Отправили Пакет.
end;


begin
  if FromServer and (pck[1]=#$39) then Timer.enabled:=true;
   end.
//Включили таймер.

А как можно несколько пакетов отсылать с определенным промежутком времени , каждого пакета?