Alias en un ComboBox especificando algunos

[afunez2007]

Hola Quiesiera saber como hacer lo siguiente:

Tengo un form para cambiarme de alias dentro del sistema, el cual tiene un combobox con la lista de alias, ya puedo escoger el alias y cambiar la base, sin embargo quiero que solo salgan los alias que tienen una base de datos que hacen funcionar el sistema.

Hay Varios alias en el BDE, que tienen un mismo nombre de Base de datos 'DATASYS.GDB' en el Parametro ServerName del Alias de FireBird

EL punto es como puedo decir en un combo Box que solo me muestre los que contienen ese nombre de Base de Datos

el codigo que actualmente estoy utilizando me pone todos los alias del BDE es el siguiente:

Código Delphi [-]
procedure TfrmCambiaBD.FormShow(Sender: TObject);
var
  I: Integer;
  Names: TStringList;
begin
  Names := TStringList.Create;
  try
    Names.Sorted := True;

     Form1.Session1.GetAliasNames(Names);
    For I := 0 to Names.Count -1 do
      ComboBox1.Items.Add(Names[i]);
  finally
    Names.Free;
  end;
ComboBox1.Text:=Form1.Database1.AliasName;
end;