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

[goodvin1709]

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

[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]

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