procedure TForm1.bConnectClick(Sender: TObject);
beginwith OPCEventServer dobegin
Servername := ServerCombo.Text; //server name from combobox
Memo1.Clear; //clear info screentry
Active := true; //connect to server
ShowStatus; //show information about serverif BrowserSupport then//only if server supports browsingbegin
Browser.Filter := '';
Memo1.Lines.Add('[Areas]');
GetAllItems(False,Browser,Memo1.Lines); //all areas to memo list
Memo1.Lines.Add('');
Memo1.Lines.Add('[Sources]');
GetAllItems(True,Browser,Memo1.Lines); //all sources to memo listend//show info messageelse
Memo1.Lines.add('This OPC AE server does not support browsing!');
finally
Active := false;
end;
end;
end;