C의 Union과 비슷하게 Record로 가변 타입 만들기

자세한 사항은 오브젝트 파스칼 문서 참고
주의 : 가변타입을 위한 case에는 end;를 붙이지 않고 record끝에만 end;를 사용한다.
 
TMessageData = record
    case MessageType : integer of
      KOMAROO_MEMO :(MemoInfo : TMemoDataStruct);
  end;