помагите пожалуста ... задержка!

[Shizo]

собсна сабж. написал такой вот скрипт на заточку все просто дальше не куда ... тока вот косяк один нада чтобы пакеты уходили не сразу 3х пакета на заточку (см. выделенный код. красным) а каждые 150 мс примерно ну не важно!

const
     Name='***';
var
   timer:TTimer;
procedure Init;
begin
     timer:=TTimer.Create(nil);
     timer.interval:=1500;
     timer.OnTimer:=@fireTimer;
     timer.enabled:=true;
end;
procedure Free;
begin
     timer.free;
end;
procedure fireTimer(Sender: TObject);
begin
     buf:=HStr('0C C4 E8 02 10 00 00 00 00 ');
     SendToServer;
     buf:=HStr('43 4C 00 EE 68 02 10');
     SendToServer;
     buf:=HStr('65 EE 68 02 10 00 00 00 00');
     SendToServer;
end;
begin
  if FromServer and (ConnectName=Name) and (pck = HStr('***'))
  then begin
    timer.enabled:=false;
end;

end.