program FaceBook;

{ Process events here }
procedure OnDocumentComplete(URL : string);
begin  
  if IsPartOf('http://www.facebook.com/', URL) then
    begin
      Fill('email', GetParam('facebookL'));   // define facebookL in Parameters DB
      Fill('pass', GetParam('facebookP'));    // define facebookP in Parameters DB
      ClickButtonValue('Login');
      NewbieScriptEnd;
    end;
end;

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