[Lazarus] Why not capture LM_xxx message

[FreeMan]

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;