// Check if Webbrowser Document is loaded
function WB_DocumentLoaded(WB: TWebbrowser): Boolean;
var
  iDoc: IHtmlDocument2;
begin
  Result := False;
  if Assigned(WB) then
  begin
    if WB.Document <> nil then
    begin
      WB.ControlInterface.Document.QueryInterface(IHtmlDocument2, iDoc);
      Result := Assigned(iDoc);
    end;
  end;
end;    procedure WB_Refresh(WB: TWebbrowser);
const
  REFRESH_COMPLETELY = 3;
var
  KeyState: TKeyBoardState;
  RefreshLevel: OleVariant;
begin
  if WB_DocumentLoaded(WB) then
  begin
    GetKeyboardState(KeyState);
    try
      if not ((KeyState[vk_Control] and 128) <> 0) then
        WB.Refresh
      else
          // if control key pressed then REFRESH_COMPLETELY
          // RefreshLevel specifies the refresh level.
        RefreshLevel := REFRESH_COMPLETELY;
      WB.DefaultInterface.Refresh2(RefreshLevel);
    except
    end;
  end;
end;

var
  Doc: IHTMLDocument2;
  FrameNum: OleVariant;
  Frame: IDispatch;
begin
  Doc := Browser.Document as IHTMLDocument2;
  FrameNum := 2;
  Frame := Doc.Frames.Item(FrameNum);
  (Frame as IHTMLWindow2).location.reload(TRUE);