var
A : Variant;
SVal : String;
ovElements: OleVariant;
i: Integer;
begin
A := EmbeddedWB1.OleObject.Document.getElementById('theme');
A.Value := 'old';
ovElements := EmbeddedWB1.OleObject.Document.forms.item(0).elements;
for i := 0 to (ovElements.Length - 1) do
if (ovElements.item(i).type = 'submit') and
(ovElements.item(i).Value = 'Переключить') then
ovElements.item(i).Click;
end;