Source position: fphtml.pp line 467
type TCreateDocumentEvent = procedure(
Sender: TObject;
var ADocument: THTMLDocument
) of object;