program EbayLogin;

{ Process events here }
procedure OnDocumentComplete(URL : string);
begin  
  if IsPartOf('https://signin.ebay.com/ws/eBayISAPI.dll?', URL) then
    begin
      Fill('userid', GetParam('ebayL'));   // Define ebayL in Parameters
      Fill('pass', GetParam('ebayP'));     // Define ebayP in Parameters
      ClickButtonValue('Sign In Securely >');
    end;
end;

{ This is the main program body. }
begin
  Navigate('https://signin.ebay.com/ws/eBayISAPI.dll?SignIn');
end.