-----------------------------------------------------------------
procedure Store(var S: TStream);
Сохраняет объект проверки допустимости по трафарету в потоке S, вызывая сначала при записи строки, на которую указывает Pic, наследуемый из TValidator метод Store.
------------------------------------------------------------------------