procedure TForm1.dOPCEventServer1Event(Sender: TObject; Event: TdOPCEvent);
var
i : integer;
beginfor i := 0 to Event.CustomProps.Count- 1 do//for all custom properties//show custom property name and value
Memo1.Lines.Add(Event.CustomProps.Names[i]+ '->'+ Event.CustomProps.ValueAsString[i]);
end;