[roman]

Pue si todos los alias que te interesan comienzan con la cadena datasys, puedes hacer algo así:

Código Delphi [-]
for I := 0 to Names.Count -1 do
  if Pos('DATASYS', Names[i]) then
    ComboBox1.Items.Add(Names[i]);

// Saludos