procedure TForm1.bUpdateClick(Sender: TObject);
var
Filter : TdOPCEventFilter;
begin
Filter := dOPCEventServer1.Filter[0]; //get first Filter
Filter.SeverityLow := 100; //only Events with Severity >= 100
Filter.Refresh; //if you change any Filter properties, you must call Refreshend;