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