Как узнать перечень таблиц базы и количество записей в них (ADO)

procedure TForm1.Button1Click(Sender: TObject);
var
 SL: TStrings;
 index: Integer;
begin
 SL := TStringList.Create;
 try
 ADOConnection1.GetTableNames(SL, False);
 for index := 0 to (SL.Count - 1) do begin
 Table1.Insert;
 Table1.FieldByName('Name').AsString := SL[index];
 ADOTable1.TableName := SL[index];
 ADOTable1.Open;
 Table1.FieldByName('Records').AsInteger :=
 ADOTable1.RecordCount;
 Table1.Post;
 end;
 finally
 SL.Free;
 ADOTable1.Close;
 end;
end;