ник: Гамлет
Всем спасибо
Сори забыл указать А2000 
если правильно понял все предложенные решения годятся для более поздних версий
Мой код маленький и работает в b]А2000[/b], только в окне диалога не видно файлов
Что там можно подправить ?
Чтобы открыв окно диалога была возможность выбрать файл и записать его путь включая сам файл