Коннект
function HDAConnectRemoteFromSynthRead(ComputerName: String; ServerName: string): Boolean;
begin
if Trim(ServerName) <> '' then
begin
 ServerProgID:=StringToOleStr(ServerName);
 Res:=CLSIDFromProgID(ServerProgID,ServerCLSID);
 try
  HDASyncRead:=CreateRemoteComObject(ComputerName, ServerCLSID) as IOPCHDA_SyncRead;
 except
  HDASyncRead := nil;
 ShowMessage('Класс не зарегистрирован');
  Exit;
 end;
 HDASyncRead.QueryInterface(iid,Container);
 Result:=true;
end;
end;

function GetItemServerHandle(ServerIf: IUnknown;
 sItem: string; iClient: DWORD; var iServer: DWORD): HRESULT;
var
 sItemW: WideString;
 PsItemW: POleStr;
 arrPsItemW: array [0..0] of pointer;
 arrClient: array [0..0] of DWORD;
 phClient, pphServer: POPCHANDLEARRAY;
 Errors: PResultList;
 ServIf: IOPCHDA_Server;
begin
 Result := E_FAIL;
 iServer:=0;
 try
   ServIf := ServerIf as IOPCHDA_Server;
 except
   ServIf := nil;
 end;
 if ServIf <> nil then
 begin
   sItemW:=sItem; PsItemW:=POleStr(sItemW);
   arrPsItemW[0]:=PsItemW;
   arrClient[0]:=iClient;
   phClient:=@arrClient;
   Result := ServIf.GetItemHandles(1,
   @arrPsItemW, phClient, pphServer, Errors);
   if Succeeded(Result) then
   begin
     Result := Errors[0];
     CoTaskMemFree(Errors);
     iServer:=pphServer^[0];
     CoTaskMemFree(pphServer);
   end;
 end;
end;

   HDAConnectRemoteFromSynthRead('ComputerName','ServerName');
   Res:=GetItemServerHandle(HDASyncRead ,'TagNAme',iServerH);
   htStartTime.bString:=false;
   htStartTime.ftTime := DateTimeToFileTime(EncodeDateTime(CYear, CMonth, CDAy, 00, 00, 00, 000));
   arrServer[0]:=iServerH;
   phServer:=@arrServer;
   Res:=HDASyncRead.ReadRaw(htStartTime, htEndTime, vt+1 , false, 1 ,phServer, ppItemValues, ppErrors);
   if ppItemValues = nil then ListBox1.Items.Add(timetostr(now)+' Error! ');
   if Res=E_FAIL then ShowMessage('fail');
   dataarray.Clear;
   datearray.Clear;
   newdataarray.Clear;
   ppItemValuesItem:=ppItemValues^[0];
   pvDataValues:=ppItemValuesItem.pvDataValues;
   pftTimeStamps:=ppItemValuesItem.pftTimeStamps;
   haAggregate:=ppItemValuesItem.haAggregate;
   dwCount:=ppItemValuesItem.dwCount;
   for i := 0 to vt do
   begin
   dataarray.Append(pvDataValues[i]);
   end;
   for i := 0 to vt-1 do begin
   datearray.Append(DateTimeToStr(FileTimeToDateTime(pftTimeStamps[i])));
   end;

   HDASyncRead._AddRef;
   Res := HDASyncRead._Release;
   HDASyncRead := nil;

 function DateTimeToFileTime(FileTime: TDateTime): TFileTime;
 var
   LocalFileTime, Ft: TFileTime;
   SystemTime: TSystemTime;
 begin
   Result.dwLowDateTime  := 0;
   Result.dwHighDateTime := 0;
   DateTimeToSystemTime(FileTime, SystemTime);
   SystemTimeToFileTime(SystemTime, LocalFileTime);
   LocalFileTimeToFileTime(LocalFileTime, Ft);
   Result := Ft;
 end;

var
   Form1: TForm1;
   HDAServerIf:                IOPCHDA_Server;
   HDASyncRead:                IOPCHDA_SyncRead;
   i: integer;
   iServerH: DWORD;
   Res: HRESULT;
   // чтение
   htStartTime:                OPCHDA_TIME;
   htEndTime:                  OPCHDA_TIME;
   dwNumValues:                DWORD;
   bBounds:                    BOOL;
   dwNumItems:                 DWORD;
   phServer:                   POPCHANDLEARRAY;
   arrServer:                  array [0..0] of DWORD;
   ppItemValues:               POPCHDA_ITEMARRAY;
   ppErrors:                   PResultList;
   ppItemValuesItem:           OPCHDA_ITEM;
   pvDataValues:               POleVariantArray;
   pftTimeStamps:              PFileTimeArray;
   haAggregate:                DWORD;
   dwCount:                    DWORD;
   newdataarray:               TStrings;
   dataarray:                  TStrings;
   datearray:                  TStrings;
   CountArray, List:           TStrings;
   AggregateArray:             TStrings;
   Computers, ListHDA:         TStringList;
   szNode:                     POleStr;
   pszItemID:                  PWideChar;
   pszName:                    PWideChar;
   pdwAttrID:                  PDWORDARRAY;
   pOperator:                  POPCHDA_OPERATORCODESARRAY;
   Ini:                        TIniFile;
   m, n, j:                    Integer;
   fltree,  flin:              bool;
   FlDb, flauto:               bool;
   Container:                  IConnectionPointContainer;
   ServerProgID:               POLeStr;
   ServerCLSID:                TCLSID;
   pdwCount:                   DWORD;
   ppdwAttrID:                 PDWORDARRAY;
   ppszAttrName:               POleStrList;
   ppszAttrDesc:               POleStrList;
   ppvtAttrDataType:           PVarTypeList;

 Res:=HDASyncRead.ReadRaw(htStartTime, htEndTime, vt+1 , false, 1 ,phServer, ppItemValues, ppErrors);

unit DateUlils

unit DateUtils

Res:=GetItemServerHandle(HDASyncRead ,'TagName', 1, iServerH);

  OPCServ:= nil;
  ReadRawVal := CreateRemoteComObject(Edit1.Text, CLSIDServer) as IOPCHDA_SyncRead;
  Res := GetItemServerHandle(ReadRawVal, pszItemID, 1, iServerH);

  htStartTime.bString := false;
  // htStartTime.szTime := 'DAY -1D';
  htStartTime.ftTime := DateTimeToFileTime(EncodeDateTime(2012, 1, 24, 00, 00, 00, 00));

  htEndTime.bString := false;
  // htEndTime.szTime := 'DAY';
  htEndTime.ftTime := DateTimeToFileTime(EncodeDateTime(2012, 1, 25, 00, 00, 00, 00));

  arrServer[0] := iServerH;
  phServer := @arrServer;

  Res := ReadRawVal.ReadRaw(htStartTime, htEndTime, 24, false, 1, phServer, ppItemValues, ppErrors);
  
  ppItemValuesItem := ppItemValues^[0];    ----- после этого вываливается здесь типа access.......
  pvDataValues := ppItemValuesItem.pvDataValues;
  pftTimeStamps := ppItemValuesItem.pftTimeStamps;
  haAggregate := ppItemValuesItem.haAggregate;
  dwCount := ppItemValuesItem.dwCount;

OPCServerList: TOPCServerList;

except
   on E : Exception do begin
   HDAServerIf := nil;
   ListBox1.Items.Add(timetostr(now)+' ErrorSpecification: '+E.ClassName);
   HDASyncRead._AddRef;
   Res := HDASyncRead._Release;
   HDASyncRead := nil;
   end;

EAccessViolation