procedure TForm1.Button1Click(Sender: TObject); var Index : integer; begin Index := dOPCServerBrowser1.FindByClassID('{D64E68EE-BB58-47A5-A565-57F36C0B4A20}'); if Index >= 0 then //if exists begin ShowMessage(dOPCServerBrowser1.Items[index].ServerCaption); end else ShowMessage('not found'); end;