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