function chr(i: integer): char;
{* ---------------- Es wurde eine Taste gedrückt @param Key Taste die gedrückt wurde @param Shift Zusätzliche Tasten------------------ *} procedure editNachname_OnKeyDown(Key: Integer; Shift: Byte); begin if (chr(Key) = 'A') or (chr(Key) = 'a') then begin Message_dlg('Die Taste a,A wurde gedrückt!'); end; end;