Source position: buttonedit.pas line 429
type TAcceptFileNameEvent = procedure(
Sender: TObject;
var Value: string
) of object;