#pas unit HiAsmUnit; interface uses kol,Share,Debug; type THiAsmClass = class(TDebug) private public end; type TMyRecord = class; TMyProc1 = procedure (var dt: TMyRecord) of object; TMyProc2 = procedure (var dt: TMyRecord) of object; TMyRecord = class public i: integer; s: string; MyProc1: TMyProc1; MyProc2: TMyProc1; Chk: boolean; end; PMyRecord = ^TMyRecord; implementation end.