Кружок нубов(Вопрос-Ответ)

[Agrail]

Есть рабочий скрипт отлавливающий и отправляющий нужный пакет нужное количество раз:

var
i:integer;
begin
 if FromClient and (pck[1]=#$3D) then begin
    buf:=pck;       
    for i:=1 to 100 do
    SendToServer;
 end;
end.

---
Хочу сделать задержку между каждой отправкой пакета, но не могу прикрутить таймер правильно:

var
   Timer01: TTimer;
   i:integer;
procedure Init;
 begin
    Timer01:=TTimer.Create(nil); 
    Timer01.OnTimer:=@OnTimer01; 
    Timer01.enabled:=true; 
    Timer01.interval:=500;
    i:=1;
 end;

procedure OnTimer01(Sender: TObject);
  begin
    if FromClient and (pck[1]=#$3D) then begin
    buf:=pck;    
    SendToServer; 
    end; 
  i:=i+1; 
  for i:=1 to 100 do
  end;
  
procedure Free;
 begin
 Timer01.Free;
 end;

 begin

 end.

Где ошибка, помогите плиз