var
Server : TdOPCDAClient;
begin
Server := TdOPCDAClient.Create(nil);
Server.ServerName := 'opc.tcp://localhost:53530/opcua/simulationserver'; // UA Server
Server.ServerName := 'Matrikon.OPC.Simulation'; // Classic COM Server
Server.ServerName := ' http://opcxml.demo-this.com/XmlDaSampleServer/Service.asmx'; // XML DA Server
Server.Active := true; //connect to Server// do something...
Server.Active := false; //disconnect from Server
Server.Free;
end;