감사합니다.
   류님..

   얼마전 까지 왜 두개의 속성만 가지는 레코드가 sizeof 하면
   이상하게 나올까 생각했서여..
   즉
   TOfsRecord = Record
     sLen : LongInt;
     cLen : word;
   end'

   이러면 8 이라는 숫자가 나오는데 즉시 packed를 해보니
   흑흑..6이 나오더라고요..흑흑..  허탈감과 기쁨이 동시에..
   글구 Button은 SubClass로 해야
   직접 Canvas를 생성해서 그려 줘야 하는 군요..
   낭중에 그렇게 해서 말들어지면 강좌란에 올려야 겠습니다..
   고마워요 류님..