program WatsonTMobile;

var
  bUserFilled : boolean;
  bPwdFilled  : boolean;

procedure OnDocumentComplete(URL : string);
begin
  if URL = 'http://watson.t-mobile.com/watson.html' then
    begin
     writeln(URL);
     bUserFilled := FillFieldInFrame('username', 'abc');
     bPwdFilled  := FillFieldInFrame('password', '12');   
     if (bUserFilled) and (bPwdFilled) then
       begin
         ExecuteWebScript('top.handleFormChange()', 'JavaScript');
         ClickButtonInFrame('nextButton');
       end;
    end;
end;

begin
  bUserFilled := False;
  bPwdFilled  := False;
  // delete IE cache to reload login page
  DeleteIECache();
  Navigate('http://watson.t-mobile.com/watson.html')
end.