Скриптинг для нуба

[AlbeNeC]

Все било б очень просто, если б работали функции Sleep() и Delay(), но нет =(((
п.с. мну опередили, прочетал то что више, ети функции не помогли б =(
пока что рабочая програма имеет такой вид :
const

Name='name';


var

timer1: TTimer;

procedure Init;
begin



timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer1;
timer1.enabled:=true;
timer1.interval:=10000;
end;

procedure OnTimer1(Sender: TObject);
begin

buf:=hstr('2F 89 05 00 00 00 00 00 00 00 ');
SendToServerEx(Name);


end;



procedure Free;
begin
timer1.Free;
end;

begin
end.
воть, но как ее переделать так чтоб шло:

1) пакет №1
2)ждем 10 сек
3)пакет № 2 три раза через 0,3 сек
4)обратно к пункту 1
попиталса вставить еще 1 таймер аналогично 1му, не работает, хз почему =((