Чего то не пашет. я сделал так:
Код:
procedure TForm1.Button3Click(Sender: TObject);
var
Doc: IHTMLDocument2;
Buttons: IHTMLElementCollection;
Button: IHTMLElement;
i: Integer;
begin
Doc := WebBrowser1.Document as IHTMLDocument2;
Buttons := Doc.all.tags('BUTTON') as IHTMLElementCollection;
for i := 0 to Buttons.length - 1 do
begin
Button := Buttons.item(i, EmptyParam) as IHTMLElement;
if Button.getAttribute('value', 2)= 'Далее' then
begin
Button.click;
Break;
end;
end;
end;