[NumLock]

импорт библиотеки типов дал следующее:

Код:

  _clsWriteRequest = interface(IDispatch)
    ['{9E481700-31AB-4CB8-B976-53BBDAC225E9}']
    procedure Set_Done(Param1: WordBool); safecall;
    function Get_Done: WordBool; safecall;
    procedure Set_Request(const Param1: WideString); safecall;
    function Get_Request: WideString; safecall;
    procedure Set_Seccess(Param1: WordBool); safecall;
    function Get_Seccess: WordBool; safecall;
    procedure Set_Value(Param1: OleVariant); safecall;
    function Get_Value: OleVariant; safecall;
    property Done: WordBool read Get_Done write Set_Done;
    property Request: WideString read Get_Request write Set_Request;
    property Seccess: WordBool read Get_Seccess write Set_Seccess;
    property Value: OleVariant read Get_Value write Set_Value;
  end;

Код:

TclsWriteRequest = class(TOleServer)

т.е. работать примерно так:

Код:

uses
  UniOpcWriteReq,
...
var
  clsWriteRequest: TclsWriteRequest;
begin
  clsWriteRequest:=TclsWriteRequest.Create(Self);
  try
//    clsWriteRequest.Done;
//    clsWriteRequest.Request;
//    clsWriteRequest.Seccess;
//    clsWriteRequest.Value;
  finally
    clsWriteRequest.Free;
  end;
end;