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