типа этого добавь:
delphi Код:
var
timer3: TTimer;
procedure Init;
begin
//баффы
timer3:=TTimer.Create(nil);
timer3.OnTimer:=@OnBuff; //
timer3.enabled:=false; // таймер по умолчанию выключен
timer3.interval:=60000; // первый баф через 60 сек
end;
procedure OnBuff(Sender: TObject); //баффы
begin
if (MyID<>0) and (sit=false) then begin
timer3.interval:=1 200 000; //каждые 20 мин (за вычетом времени самих бафов)
timer1.enabled:=true; //вкл. бафы
end;
end;