[NLObP]

Этот кусок должен стоять в главном цикле BEGIN ... END. и его нельзя вставлять в другие условия проверки, иначе до него очередь не дойдет или пропустишь его.

begin
  ...
  if wait(t1,2000) then begin
    buf:=HStr('76');
    SendToServer;
  end;
  ...
end.