[yusnerqui]

Empezado por 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

Teniendo en cuenta que la función pos debuelve un entero sería

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

Saludos