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;