Source position: _crw_apptools.pas line 305
type TForEachMdiChildAction = procedure(
Form: TForm;
Index: Integer;
var Terminate: Boolean;
Custom: Pointer
);