Source position: dialogs.pp line 928
procedure DialogCopyToClipboard(
Self: TObject;
Sender: TObject;
var Key: Word;
Shift: TShiftState
);