Удалить последний символ с строке

 стр = Лев(стр, СтрДлина(стр)-1);