procedure TForm2.WebBrowser1ShowScriptError(ASender: TObject; const AErrorLine,
AErrorCharacter, AErrorMessage, AErrorCode, AErrorUrl: OleVariant;
var AOut: OleVariant; var AHandled: Boolean);
begin
AHandled := true;
end;
procedure TForm2.WebBrowser1ShowScriptError(ASender: TObject; const AErrorLine,
AErrorCharacter, AErrorMessage, AErrorCode, AErrorUrl: OleVariant;
var AOut: OleVariant; var AHandled: Boolean);
begin
AHandled := true;
end;