Login code for neopets? In forms...

can anyone help me create a login code for the form i am making? i have all the form components done im just clueless as to what code i need to log into neopets via the form...

i basically need to know what i need to write within these lines:

Code (Text):

1. procedure ButtonClick(sender: TObject);
2. begin
3. end;

 

Ok, with this I am assuming oy uknow what variables to use. I'm going to use usernamea and passworda as variables.

Just make it clickmouse, and input the certain information. example:

Code (Text):

1. program lolInternet;
2.  
3. var
4.    <----variables go here
5.  
6. procedure login;
7. beigin
8. openwebpage('neopets.com');
9. wait(5000);
10. clickmouse(123, 456, true);
11. clickmouse(123, 456, true);
12. sendkeys(usernamea);
13. wait(3000);
14. clickmouse(123, 456, true);
15. wait(12345);
16. clickmouse(123, 456, true);
17. sendkeys(passworda);
18. end;
19.  
20.  
21. begin
22. login;
23. end.
24.  

Of course that won't work, as it dosn't have any variables, forms, or even the right co-ords.

 

hey

thanks thats the way i did it