Source position: customdialog.pas line 12
type TCustomDialogBackKeyPressed = procedure(
Sender: TObject;
title: string
) of object;