procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  DbDS.Close;
  DbDS.SelectSQL.Text := 'select * from rdb$relations where NOT (RDB$RELATION_NAME LIKE ''RDB$%'') ORDER BY RDB$RELATION_NAME';
  DbDS.Open;
  DbDS.First;
  i := 0;
  while not DbDS.Eof do begin
    DetailDS.Close;
    DetailDS.SelectSQL.Text := 'SELECT COUNT (*) AS ANZAHL from '+DbDS.FieldByName ('RDB$RELATION_NAME').AsString;
    DetailDS.Open;
    with StringGrid1 do begin
      RowCount := RowCount + 1;
      Cells [0,i] := IntToStr (i);
      Cells [1,i] := DbDS.FieldByName ('RDB$RELATION_NAME').AsString;
      Cells [2,i] := DetailDS.FieldByName ('ANZAHL').AsString;
    end;
    i := i + 1;
    DbDS.Next;
  end;
end;