var opcItem : tdOPCItem; begin Item := FinddOPCItem(OPCServer,'MyOPCGroup','Random.String'); if Item <> nil then // if Item exists Item.WriteSync('New Value') else ShowMessage('OPC Item not found'); end;