Робота з таймером

[goodvin1709]

Как зделать чтобы при приходе пакета AA BB CC DD
включился таймер на 15 сек например и через 15 сек он отправил пакет DD CC BB AA
????

[wimax]

Const
Name='';//ник

var
   Timer01: TTimer;
procedure Init;
begin
   Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
   Timer01.enabled:=false; //начальное положение включен(true)/выключен(false)
   Timer01.interval:=15000; // интервал(в милисекундах) как часто таймер срабатывает
end;
procedure Free;
begin
    Timer01.free;
end;
procedure OnTimer01(Sender: TObject);
begin
Timer01.enabled:=False;
pck:='';
buf:=HStr('какой пакет отпровлять');
SendToServerEx(Name);
end;

begin
if FromServer and (ConnectName=Name) and (pck=HStr('пакет для включения скрипта')) then
begin
Timer01.enabled:=True;
end;
end.

чтота типа такого =)

[goodvin1709]

О блин гениально то что нада
pck:='';------ что за а если его нафиг удалить
buf:=HStr('какой пакет отпровлять');
??

[wimax]

он чистить пакет
buf:=HStr('DD CC BB AA');

[goodvin1709]

Все Вопрос Отпал Лови спасибки