Código Delphi [-] if (ssCtrl in Shift) and (Key = VK_DELETE) then
if (ssCtrl in Shift) and (Key = VK_DELETE) then