#pas
type  
   PMyRecord = ^TMyRecord;
   TMyProc1 = procedure (dt: PMyRecord ) of object;
   TMyProc2 = procedure (dt: PMyRecord ) of object;
    
 TMyRecord = record
   i: integer;
   s: string;
   MyProc1: TMyProc1;
   MyProc2: TMyProc1;
   Chk: boolean;
 end;