program CelluPhone;

procedure OnDocumentComplete(URL : string);
begin
  if URL = 'https://secure.celluphone.com/dealer_login.aspx?' then
    begin
      Fill('txtUser', GetParam('cp_user'));
      Fill('txtPassword', GetParam('cp_pwd'));
      ClickButton('btnSubmit');
    end;
end;

begin
  Navigate('https://secure.celluphone.com/dealer_login.aspx?')                  
end.