Delphi-Help

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;