program UnitedParcelService;

procedure OnDocumentComplete(URL : string);
begin
  if URL = 'http://www.ups.com/content/us/en/index.jsx' then 
  begin
    Fill('tracknum', Readln('Enter Tracking Number:'));
    ClickButton('AgreeToTermsAndConditions');
    ClickImageButton('track');
  end;
  if IsPartOf('http://wwwapps.ups.com/WebTracking/processInputRequest?', URL) then
    begin
      ClickImageButton('tdmp1');
    end;
end;

begin
  Navigate('http://www.ups.com/content/us/en/index.jsx')
end.