[8tomat8]

тут не прописана процедура закрытия... можеш сам отловить и по принципу открывания сделать закрывание

begin
  if FromClient and (pck[1]=#$04) then
    begin
      ActionID:=ReadC(18);
      if ActionID=1 then
        begin
          ObjectID:=ReadD(2);
          ShowHTML;
        end;
    end;

Это открывание