/*
GetAliasNames, Count example
*/
TStringList *MyStringList = new TStringList();
try
{
  Session1->GetAliasNames(MyStringList);
  // fill a list box with alias names for the user to select from 
  for (int I = 0; I < MyStringList->Count; I++)
    ListBox1->Items->Add(MyStringList->Strings[I]);
}
__finally
{
  delete MyStringList;
} 
