[afunez2007]

Faltaba un pequeño > 0

El Codigo correcto es:

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
      if Pos('SAE40', Names[i])>0 then
       ComboBox1.Items.Add(Names[i]);
  finally
    Names.Free;
  end;
ComboBox1.Text:=Form1.Database1.AliasName;
end;

Upps se me adelantaron, pero se agradece la colaboracion con la causa