[Помогите]Прикрутить таймер к скрипту

[afonbka]

Всем наидобрейшего дня. Долго читал мануал и пытался прикрутить таймер к скрипту питья банок хп, но без результатно. Хотелось бы попросить тех, кто умеет это делать, помоч решить данную проблему. Я имею скрипт питья банок хп если CurHP<MaxHP. Но скрипт начинает флудить и пытается пить банки каждую секунду. Хотелось бы чтобы он повторял питье только через 11 секунд. Вот сам скрипт.

//автоматическое использование НР пробирок
const
    Name = 'UberWark';

var MyID:Word;
    OID:String;

begin
 if FromServer and (pck[1]=#$21) and (ReadD(12)=1539) then
   OID:=pck[8]+pck[9]+pck[10]+pck[11];

 if FromServer and (pck[1]=#$32) then  MyID:=ReadD(18);
 if FromServer and (pck[1]=#$18) and (ReadD(2)=MyID) then
  if ReadD(6)=4 then
   if (ReadD(14)<=ReadD(11)) then
    begin
     SendToServerEx(Name);
     buf:=HStr('19 D9 03 21 10 00 00 00 00');
     SendToServer;
    end;
end.

Спасибом не обижу. Прошу помощи по человечески. Мог бы сам сделать, не просл бы о помощи. Прошу понять..