Source position: editbtn.pas line 154
type TAcceptFileNameEvent = procedure(
Sender: TObject;
var Value: String
) of object;