var
Server : TdOPCDAClient;
begin
Server := TdOPCDAClient.Create(nil);
Server.ServerName := 'Matrikon.OPC.Simulation';
Server.Active := true; //connect to Server
Server.Browser.ShowBranches(Memo1.Lines)
Server.Active := false; //disconnect from Server
Server.Free;
end;