[QaK]

Вот смотри: сначала описываем таймер и бафы:

const //Dance
    d1='2F 11 01 00 00 00 00 00 00 00';    // Dance of Mystic
    d2='2F 15 01 00 00 00 00 00 00 00';    // Dance of Light
    d4='2F 10 01 00 00 00 00 00 00 00';    // Inspirations
    d3='2F 12 01 00 00 00 00 00 00 00';    // Dance of Fire
    d5='';    // Dance of Concentration
var TimerBD:TTimer;

procedure INIT;
begin
timerBD:=TTimer.Create(nil);
timerBD.OnTimer:=@OnTimerBD;
timerBD.enabled:=false;
timerBD.interval:=120000;
end;

потом пишешь что будет делаться каждые 120000 милисекунд или 2 минуты.

procedure OnTimerBD(Sender: TObject);
    begin
    Case x of
    1:  begin
        buf:=hstr(d1);//сюда баф
        SendToServerEx(NameBD);
        x:=x+1;
        end;
    2:  begin
        buf:=hstr(d2);//сюда баф
        SendToServerEx(NameBD);
        x:=x+1;
        end;
    3: begin
       buf:=hstr(d3);//сюда баф
       x:=0;
       timerBD.enabled:=false;
       end;
    end;
    end;

и наконец - при каком-либо условии включаем таймер баффов:

TimerBD.Enabled:=true;

Вот и все - дальше - сам разбирайся =) а лучше книжку купи или скачай по основам дельфи/паскаля.