THTMLDataSetEmpty = procedure (Sender: TObject; var Continue: Boolean) of object;
(Sender: TObject; var Continue: Boolean) ( THTMLDataSetEmpty)();
DBWeb
This is type DBWeb.THTMLDataSetEmpty.