-----------------------------------------------------------------
procedure HandleFName(var Msg: TMessage); virtual id_First + id_FName;
Реагирует на изменения в управляющем элементе редактирования FileName, разрешая или запрещая командную кнопку Ok. В противном случае разрешает Ok.