procedure TForm1.Button1Click(Sender: TObject);
var
PB : TdOPCPropertyBrowser;
Prop : TdOPCItemProperty; // defined in unit dOPCIntf
i,c : integer;
begin
PB := TdOPCPropertyBrowser.create(nil); //create property browser
PB.OPCServer := dOPCServer1; //set server
PB.AddItem('Random.Int4'); //add item id
PB.AddItem('Random.String'); //add item id
PB.Execute; //get properties for item from opc serverfor i := 0 to PB.Count-1 dofor c := 0 to PB[i].Count-1 dobegin
Prop := PB[i][c];
if Prop <> nilthen
ShowMessage(IntToStr(Prop.Id)+' -> '+ Prop.Description);
end;
PB.Free;
end;