[Stasrus]

var
 tick: Integer;

procedure Init;
begin
end;
function Pause(Timewait: Integer):Boolean;

  var
    t : integer;
  begin
    result := false;
    t := Round(Time*86400);
    if  t > (tick + Timewait) then
      begin
        tick := t;
        result := true;
      end;
  end;
  begin
if   pause(1) then
          begin
                buf:=hstr('packet');
SendToServerEx('name');
          end;
          end.

Попробуй так
только измени packet, name