Menu dinamico

[LACV]

El real problema es que necesito pasar un valor por la funcion pero no al llarmla me arroja error ya que no se valor darle al sender

Código Delphi [-]
procedure TFrmHome.menuDinamicoClick(Documento: string; Sender: TObject);
begin
  if Sender is TMenuItem then
  begin
    try
      FrmVentasCrud := TFrmVentasCrud.Create(Application);
      // cargamos que rol se va a usar

      FrmHome.Visible := false;

      with FrmVentasCrud do
      begin
        LbTipoDocumento.Caption := '';
        ShowModal;
      end;

    finally
      FreeAndNil(FrmVentasCrud);
      FrmHome.Visible := true;
    end;

  end;
end;