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