Source position: HTMLUn2.pas line 530
type TSoundType = procedure(
Sender: TObject;
const SRC: ThtString;
Loop: Integer;
Terminate: Boolean
) of object;