TWebBrowser

var
    Web: TWebBrowser;


procedure Form1_OnShow (Sender: string; Action: string);
var
    reg : TRegistry;
begin
    // https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/general-info/ee330730(v=vs.85)
    reg:= TRegistry.Create;
    try
        reg.Access := KEY_ALL_ACCESS;
        reg.RootKey:= HKEY_CURRENT_USER;
        if reg.OpenKey('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', True) then
        begin
            if not reg.ValueExists(ExtractFileName(Application.ExeName)) then
                reg.WriteInteger(ExtractFileName(Application.ExeName), 11000); // 10001 - IE10,  11000 - IE11  https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/general-info/ee330730(v=vs.85)
        end;
        reg.CloseKey;
    finally
        reg.Free;
    end;

    Web := TWebBrowser.Create(Form1);
    TWinControl(Web).Parent := Form1.Panel1;
    Web.Align := alClient;
    Web.Width := Form1.Width;
    Web.Height := Form1.Height-50;
    Web.Silent := 1;
end;