//get all Properties from Item 'A100.SP'
Props := TdOpcItemProperties.Create(OPCServer,'A100.SP');
for i := 0 to Props.Count-1 dowith Props[i] do
ShowMessage(Format('property %d %s Datatype: %d Value: %s',[Id,Description,Datatype,ValToAStr(Value)]));
Props.Free;