var sites: Tstringlist;sites:=Tstringlist.create;sites.sorted:=true;sites.Duplicates:=dupIgnore;
var s: String;
var i: integer;

ShowMessage('Ce script a pour but de vous montrer comment s''effectue le remplissage automatique de formulaires');
sites.commatext:=inputbox('Veuillez entrez votre(vos) site(s) (séparés par une virgule','Veuillez entrez votre(vos) site(s) (séparés par une virgule','http://');

for i:=0 to sites.count-1 do begin;
    navigate('http://www.google.com/addurl/?continue=/addurl',1);
    fillForm('INPUT(0)/TD(0)/TR(7)/TBODY(0)/TABLE(0)/FORM(0)/DIV(0)/TD(4)/TR(1)/TBODY(0)/TABLE(0)/BODY(0)/HTML(0)/',sites[i],1);

clickform('INPUT(0)/TD(0)/TR(0)/TBODY(0)/TABLE(0)/FORM(0)/DIV(0)/TD(4)/TR(1)/TBODY(0)/TABLE(0)/BODY(0)/HTML(0)/',1);


end;

ShowMessage('Vos sites ont été soumis à Google');