тут не прописана процедура закрытия... можеш сам отловить и по принципу открывания сделать закрывание
Delphi Код:
begin
if FromClient and (pck[1]=#$04) then
begin
ActionID:=ReadC(18);
if ActionID=1 then
begin
ObjectID:=ReadD(2);
ShowHTML;
end;
end;
Это открывание