program AOL;

{ Process events here }
procedure OnDocumentComplete(URL : string);
begin
  if IsPartOf('http://registration.aol.com/mail?', URL) then
    begin
      SendString(GetParam('aolL'));    // Define aolL in Parameters
      SendKeyPress('TAB');
      SendString(GetParam('aolP'));    // Define aolP in Parameters
      SendKeyPress('ENTER');
    end;
  if IsPartOf('http://www.aol.com/', URL) then
    begin
      ClickHyperLink('AOL & AIM Mail');
    end;
end;

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