procedure ShowEUInfo(Item: TdOPCItem); var str: string; Low, High: Double; begin case Item.EUType of OPC_NOENUM : str := 'Engineering Units (EU) information not available'; OPC_ANALOG : begin Low := Item.EuInfo[0]; High := Item.EuInfo[1]; str := format('Analog scale from: %.2f to %.2f',[Low,High]); end; OPC_ENUMERATED : str := 'ENUMERATED: ' +VarToAStr(Item.EuInfo); end; ShowMessage(Str); end;