Opret menu men problemer

OnClick forventer en TNotifyEvent = procedure (Sender: TObject) of object, så du kan ikke sætte eventen på ovenstående måde. Den vil kun have Sender som parameter.

TForm1 = class(TForm)
    ...
    procedure TForm1.AddOneToEdit(Sender : TObject);
  private
  public
end;

procedure TForm1.AddOneToEdit(Sender : TObject);
begin
  Add1ToEdit(code,code1);
end;

procedure TForm1.SomeMethod;
var
  menu : TTBItem;
begin
  menu := TTBItem.Create(Self);
  menu.Caption := capt;
  menu.OnClick := AddOneToEdit;
  TBXToolbar2.Items.Add(menu);
end;

virker stadig ikke... lukker har droppet projektet...