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