Запись данных в OPC сервер

type
    LogicServer=record
        OPCServer:IOPCServer;
        Group:IOPCItemMgt;
        HostName:string;
        ServerName:string;
        DataHandle:array of OPCHandle;
        ServerHandle:OPCHandle;
    end;
............
var
  TagsArray:array of string;
  ChangeList:TList;
  server1:LogicServer;
  GroupName:WideString;
  CallbackOPCServer: TMyOPCServer;
  ConnectionPoint: IConnectionPoint;
  dwCookie: Longint; 
  Data:Array of OleVariant;
  //Data:Array of single;//на случай, если передавать данные не OleVariant, а как в сервере single
  Handles:OPCHANDLEARRAY;                   ItemDef:OPCITEMDEFARRAY;
  ItemResult:POPCITEMRESULTARRAY;       Result1:PResultList;
.......
function TForm1.StringToPWide(sStr:string):PWideChar;//увеличение памяти под переменную sStr
var
    pw:PWideChar;
    iSize, iNewSize:Integer;
begin
    iSize:=Length(sStr)+1;
    iNewSize:=iSize*2;
    pw:=AllocMem(iNewSize);
    MultiByteToWideChar(CP_ACP,0,PAnsiChar(sStr),iSize,pw,iNewSize);
    Result:=pw;
end;
procedure TForm1.SetParam();
begin
  SetLength(Server1.DataHandle,Form1.TagsCount);
  SetLength(Data,Form1.TagsCount);
  SetLength(TagsArray,Form1.TagsCount);
  TagsArray[0]:='Tank100_1.Diag.X1';    TagsArray[1]:='Tank100_1.Diag.Y1';
  TagsArray[18]:='FireTank02.X1';            TagsArray[19]:='FireTank02.Y1';
  Server1.HostName:='127.0.0.1';
  Server1.ServerName:='AP.OPCDAServer';
end;
//создаем сервер
procedure CreateOPCServer(var lServer: LogicServer);
var
    ServerList: IOPCServerList;
    ClsId: TGUID;
begin
  try
    ServerList := CreateRemoteComObject(lServer.HostName, CLSID_OPCServerList) as IOPCServerList;
    if Succeeded(ServerList.CLSIDFromProgID(Form1.StringToPWide(lServer.ServerName), ClsId)) then
      lServer.OPCServer := CreateRemoteComObject(lServer.HostName, ClsId) as IOPCServer;
  except
    on E: Exception do
    begin
      Form1.ToLogFilfile('Сервер не создан: '+e.Message+', HelpContext: '+IntToStr(e.HelpContext));//запись в файл с логами
      lServer.OPCServer:=nil;exit;
    end;
  end;
  Form1.memo1.Lines.Add('Сервер создан ');
end;
//инициализация сервера
function FirstInitializeServer(var lServer: LogicServer) : bool;
var
  HR : HResult;
  RevisedUpdateRate: DWORD;// сюда кладётся возвращённое значение updateRate но оно похоже не используется совсем
begin
  try
     //не обязательна след. строка
    (lServer.OPCServer as IOPCCommon).SetClientName(PWideChar(WideString(ReactorName)));
    HR := lServer.OPCServer.AddGroup(PWideChar(GroupName),True, 500, 1, nil,
      @DeadBand, 0,lServer.ServerHandle, RevisedUpdateRate, IOPCItemMgt,
      IUnknown(lServer.Group));
    if Succeeded(HR) then
    begin Result := true;Form1.memo1.Lines.Add('Сервер инициализирован');end
    else begin Result := false; Form1.memo1.Lines.Add('Сервер не инициализирован');end;
  except
    on E: Exception do
      begin
        Form1.ToLogFilfile('Инициализация сервера: '+e.Message+', HelpContext: '+IntToStr(e.HelpContext));
        Result := False;
      end;
  end;
end;
//инициализация тэгов
procedure InitializeItemDef(var itemDef: OPCITEMDEFARRAY);
var
  i: integer;
begin
try
  for I := 0 to Form1.TagsCount-1 do with ItemDef[i] do
  begin
    szAccessPath:='';
    szItemID:=Form1.StringToPWide(TagsArray[i]);
    bActive:=true;
    hClient:=i;
    dwBlobSize:=0;
    pBlob:=nil;
    vtRequestedDataType:=VT_EMPTY;
  end;
except
    on E: Exception do
      begin
        Form1.ToLogFilfile('Инициализация тэгов: '+e.Message+', HelpContext: '+IntToStr(e.HelpContext));
      end;
  end;
end;
procedure ConnectToAllServers();
var
    HR : HResult;
    i: Integer;
begin
  CreateOPCServer(Server1);
  if (Server1.OPCServer = nil) then
    begin Form1.ToLogFilfile('Сервер не создан'); exit; end;
  GroupName:=WideString('Inclin');//создаем группу
  if not FirstInitializeServer(Server1) then
    begin Form1.ToLogFilfile('Получатель не инициализирован'); exit;  end;
  InitializeItemDef(ItemDef);
  HR := Server1.Group.AddItems(Form1.TagsCount, @ItemDef, ItemResult, Result1);
    //добавляем теги
    for i := 0 to Form1.TagsCount - 1 do
    begin
        if Succeeded(Result1[i]) then Server1.DataHandle[i] := ItemResult[i].hServer;
    end;
    //чистим    pblob
    for i := 0 to Form1.TagsCount - 1 do dispose(ItemResult[i].pBlob);
    CoTaskMemFree(ItemResult);
    ItemResult:=nil;
    CoTaskMemFree(Result1);
    Result1:=nil;
    Form1.memo1.Lines.Add('Теги добавлены');
end;
//Старт приложения
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  NumberInc:=10;//количество приборов
  TagsCount:=2*NumberInc;
  // для файла логов
  Log_file_name:=ExtractFilePath(Application.ExeName)+'Log_file.txt';
  AssignFile(Log_file,Log_file_name);
  Form1.SetParam();
  try
    ChangeList:=TList.Create;
  except
    on E: Exception do
    begin
      Form1.ToLogFilfile('ChangeList:=TList.Create: '+e.Message+', HelpContext: '+IntToStr(e.HelpContext));
    end;
  end;
  try
    CoInitializeEx(nil,CoInit_MultiThreaded); //инициализируем поток для ОРС-сервера
  except
    on E: Exception do
    begin
      Form1.ToLogFilfile('CoInitializeEx: '+e.Message+', HelpContext: '+IntToStr(e.HelpContext));
    end;
  end;
  ConnectToAllServers();
  ToLogFilfile('Программа запущена');
end;
procedure TForm1.Do();
var 
  Handles: OPCHANDLEARRAY;
  WriteResult: PResultList;
  cline_X, cline_Y : single;//значение тега в ОРС сервере 4-байтное вещественное
begin
    Cline_X:=StrToInt64(x1)*0.001;/x1 текстовая строка с результатом от прибора
    Data[0+(cline1-1)*2]:=OleVariant(Cline_X);//cline1 - номер опрашиваемого прибора прибора
    Handles[0+(cline1-1)*2] := Server1.DataHandle[0+(cline1-1)*2];
    HR:=(server1.Group as IOPCSyncIO).Write(0+(cline1-1)*2,@Handles,@data,Result1);
end;
.......