procedure TForm1.Button1Click(Sender: TObject);
var
PB : TdOPCPropertyBrowser;
P : TdOPCItemProperty;
begin
PB := TdOPCPropertyBrowser.create(nil); //create property browsertry
PB.OPCServer := dOPCServer1; //set server
PB.AddItem('Random.Int4'); //add one item more are possible
PB.AddProperty(OPC_PROP_CDT); //add property data type
PB.AddProperty(OPC_PROP_DESC); //add property description
PB.Execute; //get properties for item from opc server
P := PB[0].ById(OPC_PROP_CDT); //get property data typeif P <> nilthen//if property exists
lDataType.Caption := VarToAStr(P.Value); //show value
P := PB[0].ById(OPC_PROP_DESC); //get property descriptionif P <> nilthen//if property exists
lNote.Caption := VarToAStr(P.Value); //show valuefinally
PB.Free;
end;
end;