dOPC Client Toolkit Help file
Example
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;
Copyright © 2001-2014 Kassl GmbH (http://www.kassl.de). All rights reserved.