if (Key='1') or (Key='0') then
     begin
       语句组1
     end   
else
     begin
       Key := #0; //屏蔽了
       语句组2 
     end