Delphi KeyPress Ctrl V

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