> -- sacred писал(а):
> Ещё вопросик: Хочу сделать данные для линка - расширяемой записью. Как поставить условие в PROCEDURE (c: Control) CheckLink- (VAR ok: BOOLEAN); для проверки того, что тип - это потомок исходного типа или

Проще всего - через модуль Services, там есть готовые подходящие процедуры:
PROCEDURE Extends (IN type, base: ARRAY OF CHAR): BOOLEAN;
PROCEDURE GetTypeName (IN rec: ANYREC; OUT type: ARRAY OF CHAR);
PROCEDURE Is (IN rec: ANYREC; IN type: ARRAY OF CHAR): BOOLEAN;
PROCEDURE IsExtensionOf (IN ra, rb: ANYREC): BOOLEAN;