program delayrun;

uses
  runutils,
  windows,
  sysutils;

var param:string;
    runs:string;
    i:integer;

begin
  param:='';
  i:=strtointdef(paramstr(1),-1);
  if i<>-1 then begin
     sleep(i);
     runs:=paramstr(2);
     end
     else begin
          runs:=paramstr(1);
          param:=paramstr(2);
          end;
  for i := 3 to paramcount do begin
      param:=param+' '+paramstr(i);
      end;
  run(runs,param);
end.