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;