Нажатие кнопки частной субкоманды () Commondialog1.showopen File.text = CD.filename Image1.picture = CD.object