попробовал использовать BeforeNavigate2 и сразу полезли исключения на код ( ИДЕ = ХЕ3)
E2171 Variable 'I' inaccessible here due to optimization
E2171 Variable 'Src' inaccessible here due to optimization
E2171 Variable 'Temp' inaccessible here due to optimization (недоступные здесь за счет оптимизации) - это в модуле ComObj procedure GetIDsOfNames
сам код
Код:
procedure TMain.Wbbr_SMBeforeNavigate2(ASender: TObject; const pDisp: IDispatch;
const URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
var Cancel: WordBool);
var
I,J:integer;
begin (*действия перед перезагрузкой страницы*)
if Wbbr_SM.OleObject.Document.all.tags('FORM').Length = 0 then
begin
Exit;
end;
end;