// Login to my AmericanExpress credit card account
// by selecting "cards" in the drop-down listbox
// define amex_l and amex_p in the Parameters Screen
program AmericanExpress;

procedure OnDocumentComplete(URL : string);
begin
  if URL = 'http://home.americanexpress.com/home/mt_personal.shtml' then
  begin
    Fill('Userid', GetParam('amex_l'));
    Fill('Pword', GetParam('amex_p'));       
    SelectListItem('manage', 'cards');
    ExecuteWebScript('validateform(2)', 'JavaScript');
  end;
end;

begin
  Navigate('http://www.americanexpress.com/')
end.