Control.Tag := Self;[/code]у меня вот это
[quote]W:\Elements\delphi\code\hiDatePicker.pas(198) Error: Incompatible types: 'Cardinal' and 'THIDatePicker'[/quote]