procedure TForm1.Button1Click(Sender: TObject); var cat : TdOPCEventItems; begin dOPCEventServer1.Active := True; cat := dOPCEventServer1.Categories; cat.NamesToStrings(Memo1.Lines); end;