Delphi Schlüsselpress ctrl v
if (Shift = [ssCtrl]) and (Upcase(Char(Key)) = 'C') then
miletoo
if (Shift = [ssCtrl]) and (Upcase(Char(Key)) = 'C') then