procedure TEmbeddedWB.Hook;
begin
  if not bHook and not (csDesigning in ComponentState) then
     begin
        FParentForm := TForm(Owner);
        if (FParentForm <> nil) and (FParentForm.HandleAllocated) then
           begin
              FOldWindowProc := FParentForm.WindowProc;
              FParentForm.WindowProc := FormWndProc;
              bHook := True;
           end;
     end;
end;

procedure TEmbeddedWB.UnHook;
begin
  if bHook and not (csDesigning in ComponentState) then
     begin
        if (FParentForm <> nil) and (FParentForm.HandleAllocated) then
           FParentForm.WindowProc := FOldWindowProc;
        FParentForm := nil;
        bHook := False;
     end;
end;

procedure SetUserAgent(var UserAgent: string);
var
  reg: TRegistry;
begin
  Reg := TRegistry.Create;
  if UserAgent <> EWB_INFO then
     UserAgent := UserAgent + EWB_INFO;
  with Reg do
     begin
        RootKey := HKEY_CURRENT_USER;
        try
           if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent\Post Platform', True) then
              WriteString(UserAgent, '');
        finally
           CloseKey;
           Free;
        end;
     end;
end;