procedure TForm24.Button2Click(Sender: TObject); var OPCClient : TdOPCDAClient; PropertyList : TStringlist; Prop : string; begin OPCClient := TdOPCDAClient.Create(nil); OPCClient.ServerName := 'opc.tcp://localhost:53530/OPCUA/SimulationServer'; // OPCClient.ServerName := 'opc.tcp://opcua.demo-this.com:51210/ua/sampleserver' // OPCClient.ServerName := 'dOPCSim.Kassl.Simulation'; PropertyList := TStringlist.Create; try OPCClient.Active := true; Memo1.Lines.Add('connected'); if OPCClient.QueryAvailableProperties('11702:t:0',PropertyList) then begin for Prop in PropertyList do Memo1.Lines.Add(Prop); end; except On E: Exception do Memo1.Lines.Add('failed to connect: '+E.Message); end; PropertyList.Free; end;