Hola Paulao.
Haciendo pié en la sugerencia de
roman, podrías hacerte una función que te devuelva los nombres para los distintos tipos de componentes de conección que lo permiten.
Algo como:
Código Delphi
[-]
function GetTableNames(BD: TCustomConnection): TStrings;
begin
Result:= TStringList.Create;
if BD is TIBDatabase then
TIBDatabase(BD).GetTableNames(Result);
if BD is TADOConnection then
TADOConnection(BD).GetTableNames(Result);
...
end;
Y para llamarla, por ejemplo:
Código Delphi
[-]
ComboBox1.Items:= GetTableNames(IBDatabase1);
ComboBox2.Items:= GetTableNames(ADoconnection1);
...
Saludos.