program MyCingularAccount;

procedure OnDocumentComplete(URL : string);
begin
  if IsPartOf('http://www.cingular.com/myaccount', URL) then
    begin
      Fill('CTNAreaCode', '773');
      Fill('CTNPrefix', 'XXX');
      Fill('CTNNumber', 'XXXX');
      Fill('PASS', GetParam('cingular_p'));
      ClickImageButton('btn_submit');
  end;
end;


{ This is the main program body. }
begin
  Navigate('http://www.cingular.com/myaccount');
end.