Задержка между....

[Lolshto?]

Скажите кто-нибудь пожалуйста как создать задержку между посылками пакетов?

Пытаюсь написать скрипт, в котором присутствует посылка двух пакетов на сервер, но между ними мне нужна задержка 30 секунд непойму как такое организовать...

[alexteam]

таймером.

[Lolshto?]

var
Names: TStrings;
Timerbuf: TTimer;

procedure Init;
begin
Timerbuf:=TTimer.Create(nil);
Timerbuf.OnTimer:=@OnTimerbuf;
Timerbuf.enabled:=false;
Timerbuf.interval:=10000;

Names := TStringList.Create;
Names.LoadFromFile('D:\names.txt');
end;

function CheckName(n: string) : Boolean;
begin
Result := False;
if (Names.IndexOf(n) > -1) then Result := True;
end;

procedure OnTimerbuf(Sender: TObject);
begin
buf:=HStr('21 63 00 75 00 73 00 74 00 6F 00 6D 00 5F 00 64 00 6F 00 62 00 75 00 66 00 66 00 20 00 52 00 65 00 73 00 74 00 6F 00 72 00 65 00 42 00 75 00 66 00 66 00 73 00 00 00');
SendToServer;
end;
procedure Free;
begin
Timerbuf.free;
end;
begin
if FromClient and (pck=hstr('6D 00 00 00 00')) then
begin
buf:=HStr('21 63 00 75 00 73 00 74 00 6F 00 6D 00 5F 00 64 00 6F 00 62 00 75 00 66 00 66 00 20 00 52 00 65 00 73 00 74 00 6F 00 72 00 65 00 42 00 75 00 66 00 66 00 73 00 00 00');
SendToServer;
\\Вот тут нужна задержка.
Timerbuf.enabled:=true;
buf:=HStr('21 63 00 75 00 73 00 74 00 6F 00 6D 00 5F 00 64 00 6F 00 74 00 65 00 6C 00 65 00 20 00 67 00 6F 00 74 00 6F 00 20 00 32 00 39 00 35 00 33 00 00 00 ');
SendToServer;
end;
end.

Неполучается...уже всякими способами перепробовал.

[alexteam]

мла. поиск!!
http://coderx.ru/showpost.php?p=35627&postcount=4
установку интервала таймера и его включение делаем при приходе пакета. возврата в город.
выключение таймера в последнем шаге таймера.

Добавлено через 4 минуты
и.. используем sendtoserverEx()