Заполнение "формы" из Delphi

function fillform(webbrowser: twebbrowser; fieldname: string; value: string): boolean; 
var 
i, j: integer; 
formitem: variant; 
begin 
result := false; 
//no form on document 
if webbrowser.oleobject.document.all.tags('form').length = 0 then 
begin 
exit; 
end; 
//count forms on document 
for i := 0 to webbrowser.oleobject.document.forms.length - 1 do 
begin 
formitem := webbrowser.oleobject.document.forms.item(i); 
for j := 0 to formitem.length - 1 do 
begin 
try 
//when the fieldname is found, try to fill out 
if formitem.item(j).name = fieldname then 
begin 
formitem.item(j).value := value; 
result := true; 
end; 
except 
exit; 
end; 
end; 
end; 
end; 
 
//when the document is complete try to fill out the field homepage with the url 
procedure tform1.webbrowser1documentcomplete(sender: tobject; 
const pdisp: idispatch; var url: olevariant); 
begin 
if fillform(webbrowser1, 'homepage', 'http://www.swissdelphicenter.ch') = false then 
showmessage('error. field not available or no form found.'); 
end; 
 
// show the webbrowser-progress in label1 
procedure tform1.webbrowser1progresschange(sender: tobject; progress, progressmax: integer); 
begin 
if progressmax = 0 then 
begin 
label1.caption := ''; 
exit; 
end; 
try 
if (progress <> -1) and (progress <= progressmax) then 
label1.caption := inttostr((progress * 100) div progressmax) + '% loaded...' 
else 
label1.caption := ''; 
except 
on edivbyzero do exit; 
end; 
end; 
 
//for example you can load the page /en/addtip.php to the twebbrowser 
//when the document is complete the form where you can put your homepage 
//address is filled out 
procedure tform1.button1click(sender: tobject); 
begin 
webbrowser1.navigate('http://www.swissdelphicenter.ch/en/addtip.php'); 
// show the titel of the currently active webpage in the titlebar 
// den titel der aktuellen webseite in der titeleiste anzeigen 
caption := webbrowser1.oleobject.document.title; 
end;

if webbrowser.oleobject.document.all.tags('form').length = 0 then 
begin 
exit; 
end;