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