Если кто будет использовать пример из 6 поста то замените строку
if (key=-7) or (key=-8) or (key=KE_POUND) and (length(t)>0) then // удаление буквы (# или прав софт или С )
на
if ((key=-7) or (key=-8) or (key=KE_POUND)) and (length(t)>0) then // удаление буквы (# или прав софт или С )
не будет зависания после удаления последнего символа