Function Write(EndpointDescriptorString :String;NodeDescriptorString :String;Value :Variant) :_UAWriteResult;
var
  Arguments: OleVariant;
  I: Cardinal;
  WriteResult: _UAWriteResult;
  WriteValueArguments1: _UAWriteValueArguments;
  Results: OleVariant;
  myClient: TEasyUAClient;
begin
  //CoInitializeEx(nil, COINIT_MULTITHREADED);
try
  WriteValueArguments1 := CoUAWriteValueArguments.Create;
  WriteValueArguments1.EndpointDescriptor.UrlString := EndpointDescriptorString;
  WriteValueArguments1.NodeDescriptor.NodeId.ExpandedText := NodeDescriptorString;
  WriteValueArguments1.Value := '99,99';//value;
 
 
  Arguments := VarArrayCreate([0, 0], varVariant);
  Arguments[0] := WriteValueArguments1;
    myClient := TEasyUAClient.Create(nil);
  // Modify values of nodes
  TVarData(Results).VType := varArray or varVariant;
  TVarData(Results).VArray := PVarArray(myClient.WriteMultipleValues(
    PSafeArray(TVarData(Arguments).VArray)));
 
  // Display results
 
    result := IInterface(Results[0]) as _UAWriteResult;
 
 
finally
     myClient.Free;
     //CoUninitialize;
 
end;
end;