procedure PreviewClick(Sender: TObject); virtual;

This is PreviewClick, a member of class TTntOpenPictureDialog.