Насколько я понимаю те надо из строки удалить нескколькл символов после точки?
Как это сделать непомню...
Но примерно так должно быть :
1. Слово := Директория;
2. В Слове ищем "."
3. Узнаем сколько после нее знаков это будет N;
4. Удаляем с конца строки N + 1 знаков (плюс сама точка);
Или тебе не это нужно?