program YahooMail;

procedure OnDocumentComplete(URL : string);
begin
  if URL = 'http://mail.yahoo.com/?.intl=us' then
    begin
      Fill('login', GetParam('yahoo_l'));
      Fill('passwd', GetParam('yahoo_p'));
      ClickButtonValue('Sign In');
    end;
end;

begin
  Navigate('http://mail.yahoo.com/?.intl=us');
end.