Спасибо, но, что то я запутался как представлять процедуру в "type" в обоих формах, не подсажите?