Conocer lista de tablas de Base Datos (Firebird 2.0 y Componentes IBObjects)

[[fjcg02]]

He utilizado Delphi de mayordomo alguna vez. Si cuando meto un objeto TTable puedo seleccionar las tablas de la bbdd de una lista, seguro que existe una función ya creada que lo haga. Además la ha escrito un especialista, seguro.
A mi me funciona con Access, pero seguro que funciona con cualquier motor de bbdd ( cual no funciona con Delphi ? )

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.Connected:= True;
ADOConnection1.GetTableNames(Memo1.lines,true);
end;

Suerte y un saludo