procedure TForm1.dOPCEventServer1Event(Sender: TObject; Event: TdOPCEvent); var i : integer; begin for 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;