procedure TForm1.Button1Click(Sender: TObject); var Name, ControlName, Propname, OPCGroup, ItemName: string; GUIItem : TdGUIItem; OPCItem : TdOPCItem; begin GUIItem := dOPCGUI.Find(Edit1,ControlName,Propname,OPCGroup,ItemName); if GUIItem <> nil then begin ShowMessage(ControlName+#10#13+Propname+#10#13+OPCGroup+#10#13+ItemName); OPCItem := FinddOPCItem(OPCServer,OPCGroup,ItemName); if OPCItem <> nil then OPCItem.WriteSync('Hello'); end else showMessage('not found'); end;