delphi keypress ctrl v

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