Обработчик для функции OLE-объекта

var
  opcServer, opcGroup, opcItem1: variant;
  isConnected: boolean = False;
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not isConnected then
  begin
    try
      opcServer := CreateOleObject('OPC.Automation');
      opcServer.Connect('Advantech.ADAM.1');
      opcGroup := opcServer.OPCGroups.Add('TestGroup');
      opcItem1 := opcGroup.OPCItems.AddItem('Simulation.Group1.Tag1', 1);
      isConnected := True;
      Label1.Caption := 'Connected';
    except
      on E: Exception do
        ShowMessage(E.ClassName + ': ' + UTF8Encode(E.Message));
    end;
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  if isConnected then
  begin
    try
      opcItem1.Read(1);
      Label2.Caption := VarToStr(opcItem1.Value);
    except
      on E: Exception do
        ShowMessage(E.ClassName + ': ' + UTF8Encode(E.Message));
    end;
  end;
end;