Source position: IdIMAP4.pas line 701
type TIdAlertEvent = procedure(
ASender: TObject;
const AAlertMsg: string
) of object;