[Vilson]

да он вообще тут фигню проверяет, под его условие достаточно сделать так

if FromServer and (ConnectName='01') then     
  case pck[1] of
   #$29:if not TimerPck.Enabled then TimerPck.Enabled := True else PckIn := True;   
  end;

Моего терпения хватит еще на 1-2 ответа..