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