[NLObP]

типа этого добавь:

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;