Source position: HTMLSubs.pas line 1605
type TExpandNameEvent = procedure(
Sender: TObject;
const SRC: ThtString;
var Result: ThtString
) of object;