ну вот на примере отработки кноки "Найти!" на сайте www.ya.ru
делаем загрузку www.ya.ru по созданию формы:
WebBrowser1.Navigate('www.ya.ru');

дальше делаем кнопку на форме:


procedure TForm1.Button1Click(Sender: TObject);
var
ovElements: OleVariant;
i: Integer;
begin
ovElements := WebBrowser1.OleObject.Document.forms.item(0).eleme nts;
for i := 0 to (ovElements.Length - 1) do
if (ovElements.item(i).tagName = 'INPUT') and
(ovElements.item(i).type = 'SUBMIT') and
(ovElements.item(i).Value = 'Recent Charges') then
ovElements.item(i).Click;



end;


Кнопка "Найти" имеет type="submit вроде бы всё нормально, но не работет? ! почему?