função F9

criei um procedimento que ao pressionar F9 os itens aparecem if Key = VK_F9 then begin shape1.Visible:=true; shape2.Visible:=true; label4.Visible:=true; label5.Visible:=true; label6.visible:=true; end;alguem sabe como faço para ao pressionar ela novamente desaparecer.. e assim sucessivamente