Source position: dialogs.pp line 740
procedure RegisterDialogForCopyToClipboard(
const ADlg: TCustomForm
);