library htmlutils; uses web; Var DefaultClearID : String; Procedure SetPageTitle(aTitle : String); begin Document.Title:=aTitle; end; Procedure ClearPage(aBelowID : String); Var EL : TJSElement; begin if (aBelowID='') then aBelowID:=DefaultClearID; if (aBelowID='') then el:=Document.body else el:=Document.getElementById(aBelowID); if Assigned(El) then El.innerHTML:=''; end; exports DefaultClearID, SetPageTitle, ClearPage; begin // Your library initialization code here end.