[Gad99]

Спс за Key := #0; я понимал что надо работать с KEY, просто не мог понять что ему присвоить и пошел по другому пути.
конечный вариант получился таким:
If not (key in ['А'..'а']) Then If key <> #8 Then key := #0;