[YVitaliy]

Так бы и сразу сказал. Для "залочки" есть свойство ReadOnly.
В OnKeyDown ставишь ReadOnly:=true, а в OnKeyUp - ReadOnly:=false;