Ну посмотрел в общем. Единственное что в голову приходит так это расширение доковских файлов. Если сохранен в Word'е 2003 и старше, то расширение .docx, и следовательно у тебя ничего не меняется.
Советую сделать следующее:
Код:
if not FileExists(buh) then //если не .doc, то приписываем х =)
buh:= buh+'x';
RenameFile(buf,lastname ); //переименовываю файлы