type I1 = interface end;//не обязательно t1=class where T: I1;//после форматирование эта строчка скопируется и добавится ещё 1 class end end; begin end.