Kannst Dir ja mal die Turbopower Async Professional Komponenten anschauen.
http://sf.net/projects/tpapro/
Dort kannst Du dann relativ einfach über
for n := 0 to ApdTapiDevice1.TapiDevices.Count - 1 do
Modemauswahl.Items.Add(ApdTapiDevice1.TapiDevices[n]);
alle Modems auflisten