Delphi Keypress Ctrl V
if (Shift = [ssCtrl]) and (Upcase(Char(Key)) = 'C') then
miletoo
if (Shift = [ssCtrl]) and (Upcase(Char(Key)) = 'C') then