In delphi, this code is working, but in lazarus "message LM_CHAR;" or "message LM_KEYDOWN;" etc not triggered, what I have todo? fpc and lazarus last svn updated qt
kubuntu 13.10 x64

   TEnterAsTab = class(TGraphicControl)
   private
     FEnterAsTab: Boolean;
     FAllowDefault: Boolean;
     FBmp: TBitmap;
     FDiscard_Key: Boolean;
     FUpDownAsTab: Boolean;
   protected
     procedure WMChar(var Msg: TLMChar); message LM_CHAR;
     procedure CMDialogKey(var Msg: TCMDialogKey); message CM_DIALOGKEY;
     procedure Paint; override;
   public
     constructor Create(AOwner: TComponent); override;