Dann bring doch alles im Ereignis KeyPress unter.
Bei Dir geht es wohl wegen der Case-Abfrage nicht. Laß die mal weg, dann sollte ShowMessage gehen.
Ich sehe aber keinen Sinn darin, mehrere Ereignisse zu benutzen.
Bei einem gedrückten 'h' liefert dort Key ='h' und ord(Key) den
ASCII-Code 72, also den Ordinalwert der
ASCII-Tabelle.