[lazarus] New Bug Entered

[bugtracker at miraclec.com]

Title: There is no Action property in TToolButton

Entered by: tom

{$IFNDEF FPC}
  ToolButton1.Action := actMyAction;
{$ENDIF}


property Action: TBasicAction;