Source position: forms.pp line 1055
type TIdleEvent = procedure(
Sender: TObject;
var Done: Boolean
) of object;