Требуется помощь.

[Vilson]

Var
 PckIn: Boolean = False;
 TimerPck: TTimer;

procedure Init; 
begin
 TimerPck:=TTimer.Create(nil);
 TimerPck.OnTimer:=@OnTimerPck;
 TimerPck.Enabled:=False;
 TimerPck.interval:=5000;
end;

procedure OnTimerPck(Sender: TObject);
begin
 if not PckIn then
 begin
   buf:=HStr('пакет3');
   SendToServerEx('02');
 end;
 TimerPck.Enabled := False;
 PckIn := False;    
end;

procedure Free; 
begin
 TimerPck.Free;
end;

begin
 if FromServer and (ConnectName='01') then     
  case pck of 
  'пакет1': TimerPck.Enabled := True;
  'пакет2': if TimerPck.Enabled then PckIn := True;
  end;                
end.

[supernewbie]

Сообщение от Vilson

Var
 PckIn: Boolean = False;
 TimerPck: TTimer;

procedure Init; 
begin
 TimerPck:=TTimer.Create(nil);
 TimerPck.OnTimer:=@OnTimerPck;
 TimerPck.Enabled:=False;
 TimerPck.interval:=5000;
end;

procedure OnTimerPck(Sender: TObject);
begin
 if not PckIn then
 begin
   buf:=HStr('пакет3');
   SendToServerEx('02');
 end;
 TimerPck.Enabled := False;
 PckIn := False;    
end;

procedure Free; 
begin
 TimerPck.Free;
end;

begin
 if FromServer and (ConnectName='01') then     
  case pck of 
  'пакет1': TimerPck.Enabled := True;
  'пакет2': if TimerPck.Enabled then PckIn := True;
  end;                
end.

это у тебя как я понял во-первых идет одновременная проверка на 2 пакета. А там сначала идет 1, а потом идет проверка на 2. И во-вторых там идет, как я понял, интервал 5 сек, а мне нужно чтобы проверялось в течении 5 сек.
PS Но все равно скрипт здоровский