procedure TIWFormBootStrap1.Pagination1IWCGHTMLBSPaginationElementElements0Elements0Events0(Sender: TObject; AParams: TStringList);
var idx : integer;
begin
idx := APArams.Values['index'].ToInteger;
PaginationItem := TIWCGBSPaginationItem(Pagination1.Html.Elements[0].Elements[0].Elements[idx]);
PaginationItem.Active := true;
end;