[lazarus] Array of Buttons, OnClick how made to work

[Carlos Avogaro]

I have this in Delphi, and the event onClick, work perfect
   
  for xx ........ do
          btnMenu[xx].Height := 25;
        btnMenu[xx].Left:= 15;
        btnMenu[xx].Width := 140;
        btnMenu[xx].Caption:= sqDataF.FieldByName('nombre').AsString;
        btnMenu[xx].Tag:= sqDataF.FieldByName('accion').AsInteger;
        btnMenu[xx].Name:='Menu' + intToStr(xx);
        btnMenu[xx].Font.Color:=RGB(255,255,255);
        btnMenu[xx].Color:=RGB(100,100,100);
        btnMenu[xx].OnClick := BtnMenuClick;
        INC(xx);
     end;

  //===================================
   
  procedure TfrmMain.btnMenuClick(Sender: TObject);
begin
      with TButton(Sender)  do
            if Tag = 200 then ........
  end;
   
  In lazarus the compiler return grong number of parameters in:
          btnMenu[xx].OnClick := BtnMenuClick;

  Any idea ?
  thank you
   

       
---------------------------------
Got a little couch potato? 
Check out fun summer activities for kids.