[[fjcg02]]

Buenas,
no sé si te valdrá, pero yo en Delphi 7 utilizo esto, que funciona a la perfección.

Un saludo

Código Delphi [-]
tablas:= TStringList.Create;
SQLConnection1.Connected:= True;

// tablas de la bbdd
SQLConnection1.GetTableNames(tablas,false);
ListBox1.Items.Assign(tablas);

// tablas del sistema
SQLConnection1.GetTableNames(tablas,true);
ListBox2.Items.Assign(tablas);

// Procedimientos
SQLConnection1.GetProcedureNames(tablas);
ListBox5.Items.Assign(tablas);


tablas.Free;