Type -   99	Вызываемая процедура -   FileFind
-1 
?HisDialog.SearchName

?HisDialog.Name
Ch
?HisDialog.SearchPath
E:\O2000\DS2000
?HisDialog.SubDir
 1 
?HisDialog.MatchCase
 1 
?HisDialog. DateCreatedFrom

?HisDialog.Author

?HisDialog.Text
Execute