tengo esta rutina de filtrado de teclas y quiero agregar el tilde pero hasta ahora no he encontrado la forma.

Pos ni idea. Lo mismo es un código de UTF-8 o algo así...

Cuando dices tilde, entiendo que te refieres a símbolo de acento y no a la ñ tilde (virgulilla) o a la diéresis, etc.

El acento agudo parece ser el código ASCII 180, pero desconozco si realmente se genera ese código en todos los teclados internacionales. En su lugar se usan las vocales con tilde (acento), que tienen su propio código ASCII.

Otra cosa muy distinta es la tecla que genera la tilde y que se pulsa justo antes de la vocal (o consonante, no hay limitación aquí). Creo que tú mismo lo puedes averiguar mediante el método keypress imprimiendo en consola el código de cualquier tecla pulsada.

De todos modos, creo que deberías replantearte las rutinas para impedir o permitir que el usuario introduzca ciertos caracteres, ya que dependiendo del tipo de teclado, idioma y otros factores no es algo muy consistente. En lugar de hacer eso, creo que deberías tratar la cadena introducida por el usuario de la manera que necesites, por ejemplo, eliminando espacios o convirtiendo todo a minúsculas para compararlo con el contenido la base de datos (hay funciones en el propio lenguaje SQL para ello, también), usando codificaciones de la base de datos que permitan UTF-8, etc, etc...

Por cierto, recuerda que la clase Key se puede usar para obtener el código de la tecla o el texto de la misma:

if Key.Code = Key.Space

if Key.Text = "A"

if Key.Code = Key["A"] Then...

Además, tal como se explica en la ayuda de  gambas:

"Nunca compares el valor de ésta propiedad con una constante numérica, porque los códigos de teclado dependen del kit de herramientas subyacente (qt, gtk, etc).
Siempre se deben usar las constantes definidas dentro de la propia clase."

Saludos

buenas sugerencias jguardon, tratare de corregir el código en lo que me sea posible y entendible.

mejore la rutina así funciona: