type PTRecITestMe=^TRecITestMe; TRecITestMe=record {$IFDEF TestCODE} ITestCode:IRegisterTestCode; bIsTestCode:Boolean; {$ENDIF} {$IFDEF TestSEND} ITestSend:ISendMe; bIsTestSend:Boolean; {$ENDIF} bIsLicence:Boolean; end;