Example

Copy Code
var
  i: integer;
  Serverlist: TStringlist;
begin
  Serverlist := TStringlist.create;
  GetOPCServers(Serverlist);
  for i := 0 to Serverlist.Count-1 do
    ShowMessage(Serverlist[i]);
  ServerList.Free;
end;